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VORWORT 
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1. WOCHENTAGSBESTIMMUNG 


Bei Zinsrechnungen, Zahlungsfristen usw. ist es wichtig zu wissen, auf welchen 
Wochentag ein bestimmtes Datum fällt. Zur Wochentagsbestimmung gibt es 
mehrere Verfahren. Bekannt ist das Verfahren von Zeller (siehe z.B. [6]) oder 
die Ermittlung über das Julianische Datum, wie es z.B. in der Raumfahrt und 
der Astronomie geschieht. 


Zum folgenden Programm 


Für ein beliebiges Datum zwischen 1901 — 2099 wird der Wochentag durch 
Zählung der Tage ab dem 1.1.1901 bestimmt. Für das Jahr J gibt 


(J-1901) - 1461/4 
die Anzahl der Tage seit dem 1.1.1901 bis zum 31.12. des Vorjahrs. Dazu 
muß noch die Nummer des Tages im laufenden Jahr gezählt werden. 
Die Monatsersten eines Nichtschaltjahres haben die Nummern 
0,31, 59,90, 120, 151, 181, 212, 243, 273, 304 und 334. 


Diese Zahlenfolge kann durch den Term 
INT((158*M-157/5)+(M+1)*(M>2) 


beschrieben werden; dabei hat der Boolesche Term M>2 in CBM-BASIC 
den Wert 


1 für M>2 
0 für MS2 


(M>2) = 


Bei Schaltjahren erhöht sich die Tageszahl in den Monaten März bis Dezember 
um eins; dies leistet der Term 


(INT(A/4)=A/4)*(M>2). 
Da der 1.1.1901 ein Dienstag war, kann durch Berechnung des Siebenerrestes 
der gesuchte Wochentag bestimmt werden. Es gilt die Codierung: 
O0 = Sonntag, 1 = Montag, 2 = Dienstag usw. 


Beispiel 


Eingabe des Datums 1.1.2000 in der Form 01.01.2000 liefert den Wochentag 
Samstag. 


Die Wochentage und ihre namensgebenden Planeten 


Montag 


< Mond 


Mittwoch 
m Merkur 
Saturn 


Freitag 


D Venus 


Donnerstag 
Jupiter 


Or © Sonntag 


Mars Sonne 
Dienstag 
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Hl 


100 
110 
120 
130 
140 
150 
160 
170 
175 
180 
190 
O0 
210 
AO 
SEO 
240 
250 
260 
270 
280 
2970 
ZA00 
310 
S20 
SEO 
>40 
350 


REM „un unennnnnn nn un une WOCHENTAGSBESTIMMUNG 


FRINT STRINGE (35,61) 


FRINT TAB(8)" WOCHENTAGSBESTIMMUNG" 


FRINT STRINGE (35,61) 


REM „onen n nennen nun nn ne .nunnnnnunn EINGABE 


DIM WE (6) 
FOR I=0 TO 6 
READ WELL) 
NEXT I 


FRINT:FRINT" DATUM IN DER FORM TT.MM.JJJJ EINGEBEN !" 


FRINT: INPUT" DATUM";DE 
T=VAL (MID#(D#,1,2)) 
M=VAL (MIDE (D#,4,2)) 
J=VAL(MIDE (D#,7,4)) 


IF T>21 OR M>12 OR J#1901 THEN FRINT CHRE(7);" EINGABEFEHLER! ":GOTO 


REM „onnunununn en enennennnnnnnne BERECHNUNG 


GOSUB 420 
D=D-INT(D/7)*7 


BEN aan BEPRRRNEH NEIL RIRLNDIETHORÄREER AUSGABE 
FRINT:PRINT STRING&£ (35,45) 
FRINT" DER ";MIDE(STR$(T) ,2,2) ". "MIDE (STRE(M) „2,2; 


PRINT". "MIDE(STRE (J) ,2,4)5 


210 


4: 


60 
E70 
80 
E90 
200 
410 
+20 
430 
440 
450 
+60 
470 
480 


PRINT" IST EIN "WED; "." 
FRINT STRING$ (35,45) 

FRINT=INFUT" WEITER J/N"zA# 

IF LEFT$(A$,1)="J" OR LEFT#(AF,1)="j" THEN 210 
END 


REM „nur snenane nun TAGESNUMMER AR 1.1.1901 
D=INT ((J-1901)*1461/4) +1+T+INT C(158*M-157) /5) 
D=D+ (M>23#CM- (INT(J/4)EJ74)) 

RETURN 


DATA SONNTAG ‚MONTAG , DIENSTAG ‚MITTWOCH 
DATA DONNERSTAG ‚FREITAG , SAMSTAG 


DATUM IN DER FORM TT.MM.JJJJ EINGEBEN ! 


DATUM? 01.01.2000 


1.1.2000 IST EIN SAMSTAG. 


2. BEWEGLICHE FEIERTAGE 


Zur Terminplanung und Bewertung von Umsatzstatistiken ist die Bestimmung 
der beweglichen Feiertage von Bedeutung. 


Seit dem Konzil von Nicäa (325 nach Chr.) ist das Osterfest auf den ersten 
Sonntag nach dem Vollmond festgelegt, der dem Frühlingsanfang (Frühlings- 
Tagundnachtgleiche) folgt. Da das Sonnenjahr kein Vielfaches der Mondperio- 
de von 29,5 Tagen ist, verschiebt sich somit der jährliche Ostertermin. 


Verfahren zur Bestimmung des Osterdatums stammen von dem Astronomen 
Aloysius Lillius und dem Jesuiten Christopher Clavius und später von dem 
Mathematiker Carl Friedrich Gauß. Die Gaußsche Osterformel ist in [6] darge- 
stellt. 


Zum folgenden Programm 


Das Programm berechnet den Termin des Osterfestes für die Jahre 1901 bis 
2099 nach der Gaußschen Osterformel. 

Bei Kenntnis des Osterdatums lassen sich auch die übrigen beweglichen Feier- 
tage berechnen: Es liegt 


Rosenmontag 48 Tage vor 
Christi Himmelfahrt 39 Tage nach 
Pfingstsonntag 49 Tage nach 
Fronleichnam 60 Tage nach 


Ostern 


Mit Hilfe der in Programm 1 verwendeten Tageszählung können die Zeitpunkte 
der genannten Feiertage bestimmt werden. 


Beispiel 


Für das Jahr 1984 liefert das Programm 
Rosenmontag 5. März 

Ostersonntag 22. April 

Christi Himmelfahrt 31. Mai 
Pfingstsonntag 10. Juni 

Fronleichnam 21. Juni 
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rt 


RENT. an en se je pre ee nähe BEWEGLICHE FEIERTÄGE 
DIM M&(6) 

ELS 

FRINT STRINGE (39,61) 

FRINT" BERECHNUNG VON BEWEGLICHEN FEIERTAGEN" 
FRINT STRINGE (39,61) 

FRINT: INFUT" WELCHES JAHR" SJ 

IF J@i1961 OR 1>2099 THEN FRINT"ÄNDERES JAHR EINGEBEN":GOTO 170 
FRINT:FRINT STRINGE (39,45) 

FRINT" FEIERTÄAGE IM JAHR": JS "SIND" 

FRINT STRINGE (39,45) 


FÜR I=2 TO 6 

READ ME<CTL) 

NEXT I 

REM aaa naeh „u... BERECHNUNGEN 
A=J MOD 19 

B=] MOD 4 

C=J MOD 7 

D=<19xA+24) MOD 30 
E=(2#B+4#0+6*D+5) MOD 7 
F=-D+E-9 
N=F+90-<INT(J/4)=J7/4) 


St 


E60 
>70 
380 
390 
A400 
410 
420 
4.30 
440 
450 
460 
470 
480 
4970 
SC00 
510 
SEO 
5:0 
540 
550 
560 
370 
580 
370 


REM sans ns nennen enunnunnun nenn « AUSGABE 
FRINT" ROSENMONTAG "szM=N-48 

GOSUR 530 

FRINT" OSTERSONNTAG "z:M=N 


GOSUB 530 

FRINT" CHRISTI HIMMELFAHRT "3: M=N+39 
GOSURB 530 

FRINT" FFINGSTSONNTAG "s:M=N+49 
GOSUR 530 

FRINT" FRONLEICHNAM ‚ 
GOSUR 530 

FRINT STRINGEF (40,45) 

RESTORE 

FRINT: INFUT"WEITER (J/N)"SAE 
IF At="J" OR At="j" THEN GOTO 130 
END 


: M=N+60 


REM „nn. 0 un nn n nennen nennen nn nn a DATUMSBERECHNUNG 

FOR I=6& TO 2 STEF -1 
T=INTC(158*I-15S I) /D+HCIFDIRCI- INT (J/4)2J/43) 

IF M>T THEN FRINT USING "## „ © ö ";M-T,M& (CI) :RETURN 
NEXT I 


DATA FEBRUAR ,MAERZ ,ÄAFRIL ,MAI „JUNI 


ROSENMONTAG 3. MAERZ 
OSTERSONNTAG 22. AFRIL 
CHRISTI HIMMELFAHRT 31 . MAI 
FFINGSTSONNTAG 10 „ JUNI 
FRONLETCHNAM 21. JUNI 


WELCHES JAHRT 1985 


ROSENMONTAG 18. FEBRUAR 
OSTERSONNTAG 7. AFRI. 
CHRISTI HIMMELFAHRT 16 „ MAI 
FFINGSTSONNTAG 26. MAI 
FRONLETCHNAM 6. JUNI 
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3. DIFFERENZ ZWISCHEN 2 TERMINEN 


Für Zinsberechnungen, Wechseldiskontierung u.ä. benötigt man die Kenntnis 
der Anzahl von Tagen zwischen zwei Terminen. 

Dabei ist zwischen privat- und handelsrechtlichen Vorgängen zu unterschei- 
den, da bei letzteren das Bankjahr mit 360 Tagen festgesetzt ist. Da hierbei 
alle Monate einheitlich zu je 30 Tagen gerechnet werden, ist das Bankjahr 
rechnerisch sehr einfach zu handhaben, 


Zum folgenden Programm 


Das folgende Programm liefert die Anzahl von Tagen zwischen zwei Terminen 
nach dem bürgerlichen Kalender. Es benützt das Verfahren der Tageszählung 
seit dem 1.1.1901, wie es in den Programmen 1 und 2 verwendet wurde. 


Beispiel 


Ein am 5.8.1942 Geborener ist am 31.12.2000 21333 Tage alt. Zu beachten 
ist, daß Tage und Monate zweistellig eingegeben werden müssen. 


17 


8 


100 
110 
120 
1230 
140 
150 
160 
170 
180 
190 
ZOO 
210 
AZO 
ZIÖ 
240 
250 
260 
270 
80 
290 
Z00 
S10 
S2O 
SEO 
240 
50 


REM „unununnn nn nnnen nn en ».... TAGESDIFERENZ ZWEIER TERMINE 
CLS 

PRINT STRING$ (35,61) 

FRINT" DIFFERENZ ZWISCHEN ZWEI TERMINEN " 

FRINT STRINGE (35,61): FRINT 


REM 2. sea nn een EINGABE 
DIM D(2) 
FRINT"TERMINE IN DER FORM TT.MM.JJJJ EINGEBEN": FRINT 


REM „uno nenenn nun nn renen en enne nn un nenn nn en nnn a BERECHNUNG 
FOR I=1 TO 2 

FRINT I;".TERMIN"S = INFUT DE 

T=VAL (MIDE (DE ,1,2)) 

M=VAL(MIDEF(DF,4,2)) 

J=VAL (MIDE(DF,7,4)) 

IF T>31 OR M F}12 THEN FRINT CHRE&(7);" EINGABEFEHLER! ":GOTO 230 
IF J{1901 THEN FRINT CHRE(7I 3" JAHR >1901 ":G0TO 230 

GOSUR 390 

D(I)=D 

NEXT I 

D=ABS(D(1)-D(EI I) :FRINT 

REM seen see nennen nennnnn - AUSGABE 
FRINT STRINGE (35,45) 

FRINT"Die Differenz betraegt =";D; "Tage" 


61 


3650 FRINT STRINGE (35,45) 


>70 END 
ABC 5 
390 REM „nn unnnune nun nun ne „ne... TAGESNUMMER SEIT DEM 1.1.1901 


400 D=INT((IJ-19701)#1461/A4)+1+T+INT C(C1SB#M-157I 7/5 
410 D=D+(M>29) #(M- (INTCJ/H:J/3)) 
20 RETURN 


TERMINE IN DER FORM TT.MM.JJJJ EINGEBEN 


1 „TERMIN? 71.12.2000 
2 „TERMIN? 05.08.1942 


Die Differenz betraegt = 21372 Tage 


4. KALENDERDRUCK 


Zum folgenden Programm 


Das Programm liefert entweder einen vollständigen Jahresüberblick nach 
Wochentagen am Drucker oder eine Monatsübersicht am Bildschirm. Als Mu- 
ster dienen die Programmausdrücke auf den folgenden Seiten. 


Weltkalender mit festen Wochentagen (1937 vom Völkerbund vorgeschlagen, 
1954 von der UNO befürwortet) 


Januar Februar März 
April Mai Juni 
Juli August September 
Oktober November Dezember 


Sonntag 
Montag 


Dienstag 
Mittwoch 
Donnerstag 
Freitag 
Samstag 


W = Weltfeiertag 
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REM „nenn nnnunen une nn ne EHALENDER 


CS 
FRINT STRINGE (27,61) 
FRINT TAR(15)" Kalender " 
FRINT STRINGE (37,61) 
REM AN eins EINGÄRE 
DIM TH) ,MT(1E) „BE (2) „M# (12) 
FOR I=1 TO 12 
READ M£(D) 
NEXT I 
FOR I=1 TO 12 
READ MT«I) 
NEXT I 
FRINT CHR& (150); STRINGEF (27,154) ; CHRE& (156) 
FRINT CHR& (149) 3; SFACEF CET) LCHRE (149) 
FRINT CHR&(14%9);" Monatskalender am Bildschirm 


PRINT CHRE& (149) ; SPACE# (37) ; CHR& (149) 
FRINT CHRE (149) 5" Jahreskalender am Drucker 


FRINT CHR& (149) ;, SFACE&£ (27) ; CHR& (149) 

FRINT CHRE& (147), STRING (37,154) ;, CHR& (152) 
FRINT=FRINT: INFUT A 

IF Ari AND Ai>2 THEN FRINT CHRE(7):G0TO 320 
INFUT " Welches Jahr "zJHR 


"SCHRE (246) 


"SCHRE (246) 


s 


1 


";CHRE (149 


"SCHRE (149 


€ 


360 IF JHR=1901 OR JHR>20699 THEN FRINT CHR&(7):G0TO 350 
370 IF JHR MOD 4 = OÖ THEN MT (2) =29 

Z80 ON A GOTO 400,880 

290: 

40. REM dawn „„Monatskalender 

410 BE(LI=" * *" 
420 INFUT" Welcher Monat 1..12",M 

30 IF M@=FINT(M) OR ABS(M-6.5):5.5 THEN FRINT CHRE(7):GOTO 420 
440 GOSUR 1520 

450 CLS 

460 FRINT" KERRRRERHHer" MECM) VRR" 

470 FRINT B#E(1) 

480 FRINT '" * Mo Di Mi Do Fr Sa So *#" 
490 FRINT B#F(1) 

500 FRINT"Y RER TRENNT RR RR" 
510 FRINT BE£(1) 

520 FRINT" # "SFC (S#WT-5); 

SEO Tel 

540 IF WT=7 THEN 590 

550 FOR I=WT TO & 

560 FRINT USING "##"3T; 

370 T=T+1:FRINT" rs 

Ss80 NEXT I 

590 FRINT USING "##"3T; 

600 FRINT" #" 

s1lo T=Tti 


124 


HEÖ 
HAO 
640 
650 
[@Y=18) 
670 
680 
970 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
Bao 
g1lo 
820 
gEO 
840 
850 
80 
870 


FRINT B#(1) 
FOR J=1 TO 5 
FRINT" x* "5 

FOR I=1 TO 6 


FRINT USING "##"5 1; 
FRINT" "5 
T=T+1 
IF T>MT(M) THEN K=1:1=6 
NEXT I 
IF TEMT(M) THEN J=5:60T0 770 


FRINT USING "##"5 T; 
PRINT" *" 

T=T+1 

IF T>MT(M) THEN J=5:H=1:60T0 770 

FRINT B#(1) 

NEXT 4 

IF H=1 THEN 800 

FRINT SPC (33-5%#K) 5 "*" 

FRINT B#(1) 

FRINT" KR" H JHR; VERERHERRKRRRR FRE" 
H=0:MT (2)=28 

PRINT: INFUT "Weiter J/N";A® 

IF LEFT£(A$,1)="J" OR LEFT$(AF,1)="j" THEN 350 
END 


REM’ 2.50 ee eriee a ee era „Jahreskalender 


74 


880 
870 
Foo 
910 
920 
FO 
9740 
950 
F60 
970 
9780 
970 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 


JE=STRE (IHR) 
FRINT " Drucker einschalten und Taste druecken" 
EF=INEEYF: IF E#="" THEN 9700 
FRINT #8,SFC (32) ;MIDE (JE ,2,1)35SFC(4);3MIDE(JE,32,195 
FRINT #8,SFC (4) ;MID# (J#,4,1);5FC(4);MIDE (JF,S,1) 
FRINT #8 
B#(1)="Mo Di Mi Do Fr Sa So" 
BEDIENT RER HF HH ER" 
FOR K=0 TO 5 
FRINT #8: FRINT #8 
FOR L=1 TO 2 
FRINT #8,5SFC(»3; 
FRINT #8," #HH# "s ME(L+IRE) SV RER SFC (5); 
NEXT L 
FRINT #8,5FC (3) 5 "Ra" ME OIH Eh) a re" 
FOR I=1 TO 2 
FOR L=1 TO 2 
FRINT #8,S5SFC (93 
FRINT #8,B&F (ID) ;sSFC (59); 
NEXT L 
FRINT #8,5FC (23; 
FRINT #8,B#£(D) 
NEXT I 
FRINT #8,5SFCC»3; 
FÜR I=1 TO SE 
M=I+3*H 
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1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
130C 
1310 
1320 


ZOO 


1340 
1250 
1380 
1370 
1:80 
1390 


GOSURB 1570 
PRINT #8, SPC (3#+WT-2); 
T=1 
IF WT=7 THEN 1230 
FOR J=WT TO 6 
FRINT #8,USING "##"5 T; 
FRINT #8,SFC (1); 
T=T+1 
NEXT U 
FRINT #8,USING "##"; Tj 
T(D=T 
IF I=3 THEN 1270 
FRINT #8,SFC (8); 
NEXT I 
PRINT #8 
FOR H=1 TO 5 
FRINT #8,8FC (23; 
FOR I=1 T0 & 
T=T(D-+1 


IF T>MTCI+E#2) THEN FRINT #8, 


FOR L=1 TO 6 
FRINT #8,USING "##"3 1; 
FRINT #8,SFC (1); 


T=T+1 
IF T3MTCI+K*E) THEN FRINT 
NEXT L 


SPC(260)4:G0TO 1430 


#8, SPC (20-3%L) 5 :L=6 
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1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
15:0 
1540 
1550 
1560 
1570 
1580 
15970 
1800 
1610 


IF T:MT(I+kK#2) THEN 1420 
FRINT #8,USING "##"4T; 
TD=T 
IF I=2 THEN 1450 
FRINT #8,5FC(8)5 
NEXT I 
FRINT #8 
NEXT H 
NEXT 
FOR K=1 TO 5:FRINT #8:NEXT E 
END 
REM „ausununennnn nu. „ Berechnung der Flonatsersten 
D=INT ( CIHR-1901)#1461/4) +INT(C(158#M-15S7I /DI+HCM+ II HMI Hl 
D=D+ (INT CIHR/4) =JHR/4) # (MI 
WT=1+D-INT(D/7)#7 
RETURN 
DATA ** Januar *#,#** Februar *,%*** Maerz *#,*#* April #* 
DATA ####* Mai ##r#,%#%# Juni ##r,##* Juli #*#,** August #* 
DATA #* September#,** Oktober *,* November *,* Dezember * 
DATA 31,28,21,30,21,20,31,31,30,31,30,31 


KRRRRRRRRERÄERERR Mai KERERERcHEurnrnr 


* * 
* Mo Di Mi Do Fr sa So # 
* * 
EEREKEKEREKRTR THF HERR HH HH RR 
* x 
* i = = 4 rn > 
* * 
* 6 7 8 7 10 11 12 * 
* + 
* 13 14 15 1& 17 18 19 * 
* * 
* 20 1 22 23 24 25 26 * 
* * 
%* 27 =8 29 0 1 * 
* * 
KRERERKRRRRRHRR LIED KR HR RR 


ERRERRTRRRRERRRR Uni KRRHRHRRRHRRHRRR 


* * 
* Mo Di Mi Do Fr Sa So + 
+ * 
KERERERRERHRRRRRR RR TR TH RT FF HF HR FH HERR RR RR 
% * 
* * 
* = 4 5 6 7 8 I %* 
+ * 
*x10 11 12 13 14 15 16 «+ 
* * 
«17 BU 19 8 11 m 25 %« 
* * 
«24 358 u 27 8 =» 0% 
# * 
KERRRRRRRRR HH HH. TEE RRRRR HR RR HR ER RR 
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“rer Januar KrHtr#% 
Mo Di Mi Do Fr Sa So 
 * 

1 TE sb 
7 8EI0E 2213 
14 15 16 17 18 19 20 
21 22 253 24 25 26 27 


28 29 20 21 


“are April Fra 
Mo Di Mi Do Fr Sa So 
RER EEE 
v2, mE 7 
8 910 11 12 173 114 


“Runen Juli KeRRRRR 
Mo Di Mi Do Fr Sa So 
RER ER 
1 2 282.4 5. .60.7 
8 9710 11 12 13 14 
15 16 17 1B 19 20 21 
r 24 25 26 27 28 


Bi} 


m 
=2 
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“aaa Oktober #rR%*%* 
Mo Di Mi Do Fr Sa So 
EEE 
123456 
8 91011 11213 
14 15 16 17 18 19 20 


21 22 23 24 25 26 27 


***%** Februar ##++* 

Mo Di Mı Do Fr Sa So 

En nn nn nn En Zn 

2 er 

1. De u a Sa | 
11.42: AS 

18 19 20 21 22 2 
7 


25 262 


- 
>» 
- 
an 

y- 


3 
617 


} 


Kur Mal Kerr 
Mo Di Mi Do Fr Sa So 
Do 2 zn 
245 
10 11 12 
17 18 19 
24 25 26 


=1 


x... August KrrRe* 
Mo Di Mi Do Fr Sa So 
WERTET HK HK FFIR KR 
12204 
5.67.8710 11 
2 12 14 15 16 17 18 
19 20 21 22 23 24 25 


26 27 28 29 0 I1 


#*#*%*%* November ##+*%* 
Mo Di Mi Do Fr Sa So 
WERKKHRHRRRH HH HR HR RR 


I. 7288 


45678 910 
13 14 15 16 17 
18 19 20 21 22 23 24 


25 26 27 28 29 20 
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*##%#%%* Maerz ##rR8#%* 


Mo Di Mi Do Fr Sa So 
BE 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 

ee = 
1 AR = DER? _ Sek? A = Ben Zur Ko) 
11 12413144 191617 
18 19 zu 21 22 23 24 


25 26 27 28 29 =1 


“rn... Juni KrRrHrRR 
Mo Di Mi Do Fr Sa So 
EZ 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 22 

1 2 
STR. ek Dr - Pe er = a 
10 11 12 17 14 15 16 
17 18 19 20 21 22 23 
24 25 26 27 28 29 © 


***%** September###** 
Mo Di Mi Do Fr Sa So 
EZ 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2.2 


345678 
10 11 ı2 13 14 15 
17 18 19 20 21 22 


24 25 26 27 28 29 


***%** Dezember ###%*%* 
Mo Di Mi Do Fr Sa So 
RER 


#*r*%#* Januar ##t+%*+ 
Mo Di Mi Do Fr Sa So 
WRRRERTTTRTR TI RT HR 
I, «2 

er TR: FT 

10 11 12 17T 14 15 16 
17 1871920 21.22 
24 25 26 27 28 29 


=1 


wer April Krrrr* 
Mo Dı Mi Do Fr Sa So 
ERRERKHHHRREHKF TR FH TR HR 
1 2 

30 SER - ge aa Ze - 

10 11 12 13 14 15 
17 18 19 20 21 


24 25 26 27 28 29 30 


“rer Juli Krrrner 
Mo Di Mi Do Fr Sa So 
ER 


»#rrr+ Obtober #r##* 
Mo Di Mi Do Fr Sa So 
WU RE 

1 
3456 78 


*#**#%%* Februar ##*+* 
Mo Di Mi Do Fr Sa So 
KRRERRRUREERERERERER 
i: 2. 8,4. 9 6 
78 91011 1213 
14 15 16 17 18 19 20 
z2ı 22 23 24 25 26 27 


28 29 


“rar Mai Kerner 
Mo Di Mi Do Fr Sa So 
WERKERIHRRH IH F TR FH HR 

vi 2,32 5.& 7 
8 910 11 12 13 14 
15..16.17.18 19 20.21 
22 23 24 25 26 27 28 


29 30 31 


“RR August KrrRRr 
Mo Di Mi Do Fr Sa So 
WERTET IR KK IK FR 
12345 6 
78 910111213 
14 15 16 17 18 19 20 
21 22 23 24 25 26 29 


25 29 30 21 


**%*** November ##r%** 
Mo Di Mi Do Fr Sa So 
BE 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 202 

12345 
6 78 91011 112 
13 14 15 16 17 18 19 
20 21 22 23 24 25 26 


27 28 29 50 
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###%#%# Maerz *rK##* 
Mo Di Mi Do Fr Sa So 
KR 


345 
10 ı1 12 
17 18 19 


I 24 25 26 


=1 


waren Juni KaRRRHR 
Mo Di Mi Do Fr Sa So 
WR RER 
ı 25 4 

3.6 78. 97410:43 

2 13 14 15 16 17 18 

19 20 21 22 23 24 25 


26 27 28 29 30 


*tr%%* September#txtr* 
Mo Di Mi Do Fr Sa So 
KEREERTERERERR 

er 


7.85% 10 


14 15 16 17 
21 22 24 


25 26 27 28 29 


*#+rr Dezember #t##%* 
Mo Di Mi Do Fr Sa So 
EZ 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 272 


1253 
4 78 910 
11 14 15 16 17 


22 23 24 


25 26 27 28 29 30 1 


5. ZINSRECHNUNG 


Der Zinsrechnung liegt die bekannte Zinsformel 


K-p-t 


2? 7 360.100 


zugrunde, dabei ist 


der Zinsertrag in DM 

das Kapital in DM 

der jährliche Zinssatz in % 
die Zeit in Tagen. 


Oo xAN 


Jede der 4 Größen kann mit der Zinsformel aus den übrigen berechnet werden. 


Die Frühgeschichte des Geldes 


a) 4 
> 
Silbertetrodrachme vor: Athen (um 460 v. Chr.) Griechische Münze mit dem Kopf Solidus aus Gold mit dem Kopf 
Vorderseite: Rückseite: Eule des Poliorketes von Makedonien Konstantins des Großen 
Kopf der Göttin Athene (306 - 283 v. Chr.) (um 280 - 337 n. Chr.) 


Chinesische Köschmünze Mainzer Pfennig (um 780 Hohlpftennig Brokteat) Marıio-Theresientoler 
(500 v. Chr. - 1912) Die Buchstaben CAROLUS sınd Heinrichs des Löwen (1129 - 1195) Zahlungsmittel bıs ın dıe 
dos Sıgnet Karls des Großen 2. Hälfte des 12. Jahrhunderts Gegenwart (z. B. ın Afrıka 
8 742 - 8141 
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Zum folgenden Programm 
Nach Eingabe von 1 bis 4 werden folgende Größen berechnet: 
1 _ Zinsertrag 
2 Zeitin Tagen 
3 Kapital 
4 Zinssatz 


Die jeweils noch fehlenden Größen werden abgefragt. 
Beispiel 


Ein Kapital von 4000 DM wird 144 Tage auf einem Sparkonto zu 4,5% ver- 
zinst. Das Programm liefert den Zinsertrag: 72 DM. 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
RO 
240 
250 
260 
270 
280 
ago 
AOO 
310 
E20 
330 
40 


350 


CLS 

FRINT 
FRINT" 
FRINT 
REM .. 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
INFUT 
IF A=1 
FRINT 


FRINT: 


nen nenn ZINSRECHNUNG 


STRINGE (30,61) 
Zinsrechnung" 
STRINGE (30,61) 


nenne Dunn enennunn EINGARE 
CHRE (154) ; STRING$ (25,196) ; CHRE (156) 


CHR& (149) ; SFACEE (25) ; CHRE# (149) 
CHR& (149);" Zinsertrag gesucht 
CHR& (149) ; SFACE# (25) ; CHR# (149) 
CHRE (149) 5" Laufzeit gesucht 
CHRE& (149) ; SFACE# (25) 5; CHRE (149) 
CHRE (149) 5," Kapital gesucht 
CHRE (149) ; SFACE#$ (25) ; CHRE (149) 
CHR& (149) 5" Zinssatz gesucht 
CHRE (149) ; SFACEE (25) ; CHRF (149) 


"SCHRE (246); 
"SCHRE (246); 
"SCHR$ (246); 


"SCHR$ (246); 


CHRE (147) ; STRINGE (25,154) ; CHR& (153 


A 


OR A=2 OR A=3 OR A=4 THEN 320 


ELSE Z10 


CHR£(7)5" 1 bis 4 eingeben !":60T0 290 
DN A GOTQ 340,440,540,640 


un unnen nn. nenn.. . Zinsertrag 


INFUT "Eapital in DM";k 


hJ 


" 


id 


"SCHRE (149) 
"SCHRE (149) 
":CHRE$ (149) 


"SCHRE (149) 


123 


=60 FRINT: INFUT "Jahreszinssatz in %";P 

370 FRINT: INFUT "Laufzeit in Tagen";T 

380 Z=K#F+#T/36000 

390 FRINT:FRINT STRINGE (30,45) 

400 FRINT USING "Zinsertrag = ####4HH4#.## DM ":Z 
410 FRINT STRINGE (20,45) 

420 END 

420 3 

440 REM nun nun un n nn nn nn „ Laufzeit 
450 FRINT: INFUT "Kapital in DM";E 

460 FRINT: INFUT "Jahreszinssatz in %";F 

470 FRINT:INFUT "Zinsertrag in DM";Z 

480 T=Z7#36000 /K/F 

490 FRINT=SFRINT STRINGF (30,45) 

500 FRINT USING "Laufzeit = ###4## Tage ";T 
510 FRINT STRING# (30,45) 

520 END 

SEO: 

540O REM zuunennennnne nenn nenn nn» Kapital 
550 FRINT:INFUT "Laufzeit in Tagen";T 

560 FRINT: INFUT "Jahreszinssatz in %";F 

570 FRINT: INFUT "Zinsertrag in DM";Z 

580 K=eZ#36000 /F/T 

590 FRINT:FRINT STRINGEF (30,45) 

600 FRINT USING "Kapital = #HHHHHH$ #4 DMUGSE 
610 FRINT STRINGE (30,45) 


Se 


620 END 

Au 

640 REM „nenn nuunnnen nenn nen a ı Zinssatz 
650 FRINT: INFUT "Kapital in DM";kK 

660 FRINT:INFUT "Laufzeit in Tagen"; T 
70 FRINT:INFUT "Zinsertrag in DM"sZ 
SRG F=eZeisüü0o /HE/T 

690 FRINTSFRINT STRINGE (30,45) 

700 FRINT USING "Jaehrl.Zinssatz = ###.## A';F 
710 FRINT STRINGE (30,45) 

72C END 


Zinsertrag gesucht ı 
Laufzeit- gesucht 2 
Kapital gesucht 5 


Zinssatz gesucht 4 


1 

Kapital in DM? 4000 
Jahreszinssatz in %7 4.5 
Laufzeit in Tagen? 144 
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6. ZINSESZINSRECHNUNG 


Werden die erhaltenen Zinsen wieder dem Kapital zugeschlagen und erneut 
verzinst, so spricht man von Zinseszinsrechnung. 
Ist Ko das Anfangskapital, so erhält man nach n Jahren bei p % Zins das End- 
kapital 
P ın 
= 1+-—). 
Kn Ko ( 100' 

Diese Zinseszinsformel wird auch zur Berechnung von Zuwachs- und Wert- 
steigerungsraten benützt. 
Eine Einmalprämie von 50.000 DM für eine Lebensversicherung wächst in 
20 Jahren und 4% Jahreszins auf 


50.000 DM - 1,0420 = 109.556,15 DM 
an. 


Bei unterjähriger Verzinsung, wie sie z.B. bei Festgeldkonten gegeben ist, gilt 


P ni 
= + —— 
Kn=Kollt m) - 
dabei ist i die Anzahl der jährlichen Verzinsungen. So liefern z.B. 10.000 DM 
in 3 Jahren bei 8% Jahreszins und vierteljährlicher Verzinsung 
8 


12 _ 
200! 12.682,42 DM. 


10.000 DM (1 + 
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Anwachsen einer DM bei 6% Jahreszins 


2,40 


1 12 13 14 15 Jah 


Zinseszins 
ERERIAE TENER EN einfacher Zins 


Zum folgenden Programm 


Nach Eingabe von 1 bzw. 2 wird das Endkapital bzw. das Anfangskapital be- 
rechnet. Ist der Zinssatz gesucht, so kann er mittels Programm 18 berechnet 
werden. 


Beispiel 

Was kostet ein abgezinster Sparbrief, der bei jährlich 8,5% Zins nach 5 Jahren 
10.000 DM erbringt? 

Das Programm liefert Ko = 6650,45 DM. 
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6€ 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
ZOO 
z10 
220 
EO 
240 
250 
260 
70 
280 
2970 
300 
S10 
ZEO 
ZEO 


340 
350 


REM „un nuunnnnunnn nn nn ZINSESZINSRECHNUNG 


CLS 

FRINT STRING$ (25,61) 
FRINT" ZINSESZ INSRECHNUNG" 
FRINT STRINGE (25,61) 


REM ass Pa EINGARE 

FRINT CHR#£ (150) ; STRING$ (297,154) ; CHRE (156) 

FRINT CHR#& (149) ; SFACEF (Z9) ; CHRE (149) 

FRINT CHRE(149) 5" Endkapital gesucht ";CHR# (246) 5" 
FRINT CHR& (149); SFACEF (Z9) ; CHRE (149) 

FRINT CHRE(149);" Anfangskapital gesucht ";CHRE (246) 5" 
FRINT CHR& (149); SFACEF (ZI) ;CHRE (149) 
FRINT CHRE (147), STRINGE (29,154) ; CHR& (159 :FRINT 

INFUT A 


1 


m 
dm 


"SCHRE& (149) 


"SCHRE (149) 


IF All AND AX>2 THEN FRINT CHRE(7);5" 1 ODER 2 EINGEBEN!":GOTO 250 


ON A GOTO 290,400 


REM „unonnunneunnne nn nun nn nn ENDEAFITAL GESUCHT 
FRINT: INFUT" ANFANGSEAFITAL in DM";E 

GOSUB 540 

K2=E#F:H1=H 

Z=HI-H1 

FRINT:FRINT STRINGE (20,459) 

FRINT USING " ZINSERTRAG = ######.## DM":SZ 


Or 


57-18) 
370 
380 
390 
00 
410 
420 
4.30 
440 
450 
460 
470 
480 
4970 
EOO 
510 
320 
SEO 
540 
550 
560 
570 
580 
5970 
HÜO 


FRINT USING " ENDKAFITAL = HHHHHHH. #4 DM'SEZ 
FRINT STRING# (30,45) 

GOTO 500 

REM was „unnnnn. ANFANGSHAFITAL GESUCHT 
FRINT: INFUT " ENDEAFITAL"3E 

GOSUR 540 

EKil=E/F:ıkEZ=H 


FRINT=:FRINT STRING#E (30,45) 

FRINT USING " ZINSERTRAG = ##H#HH#4#.4#4# DM"SZ 

FRINT USING " ANFANGSKAFITAL= #HHHHHHh HH DM" SEI 
FRINT STRINGE (30,45) 


FRINT: INFUT " Weitere Berechnungen (J/ND "sA#F 

IF At="J" OR At="j" THEN 120 

END 

REM „uunnnnnnnnunnn nn en nun nn AUFZINSFAKTOR 
FRINT: INFUT" LAUFZEIT IN ZINSFERIODEN";N 

FRINT: INPUT" JAHRESZINSFUSS IN %";F 

FRINT: INFUT" ANZAHL DER ZINSFERIODEN FRO JAHR"SI 
F=F/1 

F=(1+F/100) "N 

RETURN 


Endkapital gesucht 1 


Anfangskapital gesucht = 


ENDEAFITAL?T 10000 
LAUFZEIT IN ZINSFERIODEN? 5 
JAHRESZINSFUSS IN %?7 8.5 


ANZAHL DER ZINSFERIODEN FRO JAHR? 


ZINSERTRAG = 3349.55 DM 
ANFANGSEAFITAL= 6650.45 DM 
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7. MITTLERER ZINSSATZ 


Bei vielen Wertpapieren, Renditeobjekten und Wertsteigerungen ist der Zins- 
satz bzw. die Zuwachsrate während der Laufzeit nicht konstant. Man benützt 
daher eine durchschnittliche oder mittlere Zins- bzw. Zuwachsrate. 


Sind p1, P2, .. , Pn die jeweiligen Zinssätze, so wächst der Anfangswert Ko 
nach n Zinsperioden auf den Wert 
P1 p2 Pn 
= BER a & DEE 
Kn Kl (1 100) 


Der mittlere Zinssatz bzw. die mittlere Zuwachsrate ist dann 


n P1 P2 Pn h 
p = Ve a rg N) 100% 


100 


Herrscht 5 Jahre lang eine Inflationsrate von 
5,2%, 5,4%, 6,0%, 6,2% und 5,9% 
so ist die mittlere Inflationsrate 


( 5 1,052 - 1,054 - 1,060 - 1,062: 1,059 -1) - 100% = 0,057 - 100% = 5,7% 


25 Jahre Geldwert-Schwund 


Kaufkraftverlust durch Italien 


Preissteigerungen 
1957 bis 1982 England 


Dänemark 
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Wird eine Lohnsteigerung von 4,6% erst ab Juni ausbezahlt, so entspricht dies 
einer jährlichen Lohnsteigerung von 


( I 1,0467 -1) - 100% = (1,027 —1) - 100% = 2,7%. 


Werden bei einem Wertpapier mit wechselndem Zins die Erträge jährlich aus- 
gezahlt, so darf oben genannte Formel nicht angewandt werden, da sie auf der 
Zinseszinsformel beruht. In diesem Fall kann Programm 11 angewendet wer- 
den. 


Sucht man bei unterjähriger Verzinsung denjenigen Zinssatz po, der denselben 
Zinsertrag wie der Jahreszinssatz p erbringt, so erhält man den sog. konfor- 


men Zinssatz 
Po=(-Yi a) . 100%, 


dabei ist i die Anzahl der jährlichen Verzinsungen. Der konforme Zinssatz 
für monatliche Verzinsung (i=12) und den Jahreszinsfuß 10% ist somit 


12 
Po=(vV 1,10 -1) - 100% = (1,00797414 —1) - 100% = 0,80% 


Zum folgenden Programm 


Nach Eingabe der Anzahl der Zinsperioden und des jeweiligen Zinssatzes, be- 
rechnet das Programm den mittleren Zinssatz nach der oben angegebenen 
Formel. 


Beispiel 
Ein Bundesschatzbrief vom Typ B wird bei 7 Jahren Laufzeit wie folgt ver- 
zinst (Stand Herbst 1982): 


7.Jahr 900% 


Das Programm liefert die Rendite von 7,82 %. 
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Sy 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
ZOO 
210 
AO 
RO 
240 
250 
260 
270 
280 
290 
ZOO 
>10 


REM 2»nununnneunnn nun nenn nn „MITTLERER ZINSSATZ 
CLS 
FRINT STRINGE$ (30,61) 
FRINT" MITTLERER ZINSSATZ" 
FRINT STRINGE (30,61) 
REM Senne eaneinseee EINGABE 
INFUT" Wieviele Zinsperioden";N 
S5=1:DIM P(N) 
FRINT:FRINT" Eingabe in % fuer" 
FOR I=1 TON 
FRINT" Zinssatz fuer Feriode"s;1I,:INFUT F(D 
S=5# (1+FCI)/100) 
NEXT I 
REM 2uusunnkennun en ennnennuonnrnnun  AUSGABE 
S5=5"(1/N)-1 
FRINT:FRINT STRINGF (30,45) 
FRINT USING "Mittlerer Zinssatz=###.## 7",5*100 
FRINT STRING#E (30,45) 
END 


Wieviele Zinsperioden” 7 


Eingabe in % fuer 


Zinssatz 
Zinssatz 
Zinssatz 
Zinssatz 
Zinssatz 
Zinssatz 
Zinssatz 


fuer 
fuer 
fuer 
fuer 
fuer 


Feriode 
Feriode 
Feriode 
Feriode 
Feriode 
Feriode 
Feriode 


neupPüne 


ao 


HN 


rJ 
{n 


SSIODONNa 


Zinssatz= 
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8. EFFEKTIVZINS VON KLEINKREDITEN UND 
RATENZAHLUNGEN 


Eigentlich sollte der Begriff “Effektivzins’’ Kreditkonditionen von Banken 
und Warenhäusern vergleichbar machen. Da nun aber Banken wieder spezielle 
Kreditarten anbieten, sind die Angaben jedoch nicht immer vergleichbar. 


Der Effektivzins ist nach Definition der Zinsfuß, zu dem der ausbezahlte An- 
teil des Kredits verzinst werden müßte, damit sein Endwert gleich dem End- 
wert der geleisteten Zins- und Tilgungszahlungen ist (vgl. Programm 12). 


Seit Beginn des Jahres 1981 wird der Effektivzins über die Gleichung 


t70 J 
100 _P q 

1200.  ) Mi ® M 
aM ++ ZT 100) ° TrMe/1200 


ermittelt, dabei ist 


= gesuchter Effektivzins in % 

= 1+e/100 

= Laufzeit in Monaten 
nominaler Monatszinssatz in % 
= Laufzeit in ganzen Jahren 

= Anzahl der Restmonate 

= Bearbeitungsgebühr in %. 


vz-u zoo 
{ 


Da diese Gleichung nicht nach e aufgelöst werden kann, muß die Berech- 
nung indirekt erfolgen. Mit Hilfe einer Intervallschachtelung wird e solange 
systematisch variiert, bis beide Seiten der Gleichung übereinstimmen. 


Bis zum Jahr 1980 wurde eine sehr viel einfachere Formel zur Ermittlung des 
Effektivzins benützt, die finanzmathematisch nicht sinnvoll war, da sie nicht 
auf Zinseszinsrechnung beruht: 
_24 (pN+B) 
N+1 


Für das im Programm berechnete Beispiel ergibt sich nach der alten Formel 
17,48 %, gemäß der neueren jedoch 16,44 %. 
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Zum folgenden Programm 


Nach Eingabe von Kredithöhe, Laufzeit, Monatszinssatz und Bearbeitungs- 
gebühr berechnet das Programm mittels einer Intervallschachtelung den Effek- 
tivzins nach der neuen Formel. Die Intervallschachtelung selbst wird in einem 
Unterprogramm ausgeführt. Die im Nenner der neuen Formel auftretenden 
Funktionen werden mittels DEF FN berechnet. 


Beispiel 


Bei einem Großversandhaus wurden Möbel im Wert von 5000 DM auf Raten- 
zahlung gekauft. Die Laufzeit der Zahlungen beträgt 72 Monate, der monat- 
liche Zins 0,69 % und die Bearbeitungsgebühr 3,5 %. 

Das Programm liefert dafür eine Monatsrate von 106,37 DM. 

Der Effektivzins beläuft sich auf 16,44 %. 


NZ 


N 


gi! 


—-M 
1 


“Bittsteller bei einem jüdischen Geldverleiher: 

Ich bitt eüch jud leicht (leiht) mir zu hand / was eüch 
gebürt (an Zinsen), gebt mir verstand (kund) / Bargelt 
auff bürgen oder pfand'' 

Holzschnitt von Jörg Breu, Augsburg 1531 
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6r 


100 
110 

le) 

30 
140 
150 
160 
170 
180 
190 
vlel#) 
10 
ZERO 
30 
240 
Pta18) 
260 
270 
Z80 
290 
A000 
>10 
20 
AAO 
>40 


350 


REM zueuu.n... »EFFEETIVZINS BEI KLEINEREDITEN 
ELS 

FRINT STRING# (34,61) 

FRINT" Effektivzins eines Kleinkredits" 
FRINT STRINGE (34,61) 

REM sans re ee ei WEENGABE 
FRINT: INFUT" Kredithoehe in DM"zE 

FRINT: INFUT" Laufzeit in Monaten"; 

FRINT: INFUT" Monatszinssatz in %";F 

FRINT: INFUT" Bearbeitungsgebuehr in %";B 

REM neun nnnnnnen nun nnnnnn . „ Berechnungen 
J=INT(N/12):M=N MOD 12 

DEF FNAC(X,M, DJ =(5.5+12/X) #((1+X)"J-2) 

DEF FNB(X,M,J)=(1+(M-1) /24#X) #&M/ (1+MR*X/12) 


DEF FNR(X,M,J)=(1+X)"J/ (FNACK,M,JI+FNB(X,M,J)) 


L=(1+B/100) /N+F/100 

GOSUR 440 

REM zuuunennn nn nennen nn en nn nn . „ Monatsrate 
Z=F#+N#+H/100:REM Zinsanteil 

G=B*+H/100:REM Gebuehrenanteil 
RT=(E+Z+G) /N 


360 
370 
BO 
390 
400 
410 
420 
430 
440 
450 
460 
470 
48C 
490 
5300 
510 


MEM Ara na „nern nnn „Ausgabe 
FRINT:FRINT STRING# (24,45) 

FRINT USING " Monatsrate = #HHH. HH DM"'SRT 
FRINT USING " Effektivzins = ##.## % "ı1008#| 
FRINT STRINGE (24,45) 

END 


REM „non snnnnnnnnnn nn. Intervallschachtelung 
E=.1:D=1 
R=FNR(CE,M,J) 
S=R-L. 
E=E-SGN (5) *#D/2 
D=D/2 
IF D!„O0O00001 THEN 510 
GOTO 450 
RETURN 


Kredithoehe in DM? 5000 


Laufzeit in Monaten? 72 


Monatszinssatz in %? „d9 


Bearbeitungsgebuehr in 47 


En 


nd 


Monatsrate 


108.38 DM 


H 


Effektivzins = 16.44 % 
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9. EFFEKTIVZINS BEI ANNUITATENDARLEHEN 


Ebenso wie bei Ratenzahlung und Kleinkrediten werden Bankdarlehen und 
Hypotheken durch den Effektivzins beschrieben. Seine Berechnung erfolgt 
prinzipiell wie bei Kleinkrediten, nur werden die Zahlungen meist jährlich 
verzinst und die Bearbeitungsgebühr durch einen Auszahlungsverlust 
(= Disagio) ersetzt. 


Zum folgenden Programm 


Nach Eingabe des nominellen Zinssatzes, des Tilgungssatzes, der prozentualen 
Auszahlung berechnet das Programm die Laufzeit und den Effektivzins. Die 
Zinsermittlung erfolgt analog zum vorhergehenden Programm über eine Inter- 
vallschachtelung. 


Beispiel 
Ein Käufer einer Eigentumswohnung benötigt zur Finanzierung noch 
96.000 DM. Er nimmt dazu bei einer Bank ein Hypothekendarlehen über 


100.000 DM bei 96% Auszahlung, 9% Zins und 1% Tilgung auf. Das Pro- 
gramm berechnet die Laufzeit zu 26,7 Jahre. Der Effektivzins ist 9,49 %. 


Die Tilgungsrate eines Annuitätendarlehens kann mit Hilfe von Programm 17 
berechnet werden. 


Literaturhinweis: [13] 
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°5 


100 
110 
120 
130 
140 
150 
160 
170 
180 
170 
200 
„10 
20 
SEO 
240 
250 
6) 
„70 
280 
290 
AOO 
10 
20 


ABO 


>40 
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REM „....EFFEETIVZINS BEI ANNUITAETENDARLEHEN 


CLS 

FRINT STRINGE (32,61) 

FRINT" Effektivzins eines Darlehens" 

FRINT STRINGE (32,61) 

REM ann a a a nee we aa ee „un... EINGABE 
FRINT: INFUT" Zinssatz in %";F 


FRINT: INFUT" Tilgungssatz in %"51I 
FRINT: INFUT" Auszahlung in %"3A 
REM zuuunennnn un nn nn nen nun a BERECHNUNGEN 
N=LOG (1+F/D) /LOG (1+F/100) 
J=N 
M=N-INT<(N)SREM Restzeit 
N=INT(N):REM Ganze Jahre 
T=(F+ID /100:REM Tilgungsrate 
A=A/ 100 
REM zuunnunennnnnnnn nn. ILNTERVALLSCHACHTELUNG 
x0=0:X1=1 
WHILE ABS(X0-X1)>.00001 
X=(XO+X1)/2 
S=T:REM Endwert der Tilgung 
FOR I=1 TO N-1 


eg 


60 
370 
80 
>90 
A400 
410 

oO 

AO 
440 
450 
460 
470 
480 
4970 
ZOO 
510 
520 
5:0 
540 
30 
360 
5370 
380 
570 


5=5#(1+X)+T 


NEXT I 
Z=(1+X)"M= REM HKONFORMER ZINS FUER RESTZEIT 
S=5#7 
Y=T#C(1+X)"M-1) /X:REM Resttilgung 
S=-5+Y 
GOSUR 540 
IF ABS(K-5)2.00001 THEN 500 
IF S>E THEN X0Ö=X ELSE Xi1=X 
WEND 
REM sun neucnenune nn nen „ernennen. AUSGÄRE 
FRINT:FRINT STRING# (32,45) 


FRINT USING " Laufzeit = ###.## Jahre"; 
FRINT USING " Effektivzins = ##.## % "ı100%*X 
FRINT STRINGE (32,45) 

END 


REM „.......ENDWERT DES AUSGEZAHLTEN KAFITALS 
H=A 

K=Er*(1+X) "N 

Zz=(1+X)"M-1 

K=E* (1+Z) 

RETURN 


Zinssatz in %7 9 
Tilgungssatz in Til 
Auszahlung in %T 96 


Laufzeit = 26.72 Jahre 
Effektivzins = 9.49 % 


54 


10. RENDITE VON FESTVERZINSLICHEN WERTPAPIEREN 


Festverzinsliche Wertpapiere wie Pfandbriefe, Kommunalobligationen, Anlei- 
hen usw. werden auch Rentenpapiere genannt. 


Ist N der Nominalzins, R der Rückzahlungskurs, A der Ausgabe- bzw. der 
Anschaffungskurs und L die Laufzeit in Jahren, so berechnet sich die Ren- 
dite p aus der Formel 


(N + ) - 100 % 


R-A 
_ L 

ö A 
Da sich diese Rendite noch um die jeweiligen Bank- und Maklergebühren ver- 


ringert, werden von Banken und Tageszeitungen manchmal etwas differieren- 
de Beträge genannt. 


Zum folgenden Programm 


Nach Eingabe von Nominalzins, Rückzahlungs- und Anschaffungskurs und 
Laufzeit berechnet das Programm die Rendite nach obengenannter Formel. 


Beispiel 
Ein Pfandbrief vom Nominalzins 7% und der Restlaufzeit von 6 Jahren wird 
bei Kurswert 96% gekauft. Die Rendite ist 


100-96 
a ale. 


96 96 


(7 
= 799% 
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REM „.„RENDITE VON FESTVERZINS.WERTFAFIEREN 
ECLS 

FRINT STRINGE (39,61) 

FRINT" RENDITE VON FESTVERZ. WERTFAFIEREN" 
FRINT STRING$# (39,61) 

REMIS EEE a en an ee EINGABE 
FRINT: INFUT" Nominalzins in %";N 

FRINT: INFUT" Rueckzahlungskurs in %";R 
FRINT: INFUT" Ausgabekurs in %"sA 

FRINT: INFUT" Laufzeit in Jahren"s;L 

REM seen Bann ene „nenn... BERECHNUNG 
F=(N+(R-A)/L) 

F=F*100/A 

FRINT STRING#E (39,45) 

FRINT TAB(8) USING " Rendite = ###.## %"; P 
FRINT STRING# (39,45) 

END 


RENDITE VON FESTVERZ. WERTFAFIEREN 


Nominmalzins in %7 7 


Rueckzahlungskurs in %7 100 


Ausgabekurs in %7 96 


Laufzeit in Jahren? & 
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11. RENDITE EINES WERTPAPIERS MIT WECHSELNDEM 
ZINS 


Bei einigen Wertpapieren, wie z.B. Bundesschatzbriefen vom Typ A, werden 
die Zinserträge jährlich ausgezahlt. Für solche Wertpapiere berechnet das fol- 
gende Programm die Rendite; werden die Zinsen nicht ausbezahlt, so muß das 
Programm 7 zur Renditebestimmung gewählt werden. 


Die Rendite r eines solchen Wertpapiers ist dadurch definiert, daß der End- 
wert des mit r verzinsten Kapitals gleich dem Endwert der nachschüssig ver- 
zinsten Zinserträge und dem Wert des Papiers selbst ist (vgl. Programm 12). 


Zum folgenden Programm 


Ähnlich wie bei den Programmen 8 und 9 wird die gesuchte Rendite über eine 
Intervallschachtelung bestimmt. Die Verzinsung der ausgeschütteten Zinser- 
träge wird bei jedem Schritt in einem Unterprogramm ermittelt. 


Beispiel 
Ein Bundesschatzbrief vom Typ A hat bei 6 Jahren Laufzeit folgende Verzin- 


sung (Stand Herbst 1982): 
3. Jahr 


Die Zinsen werden jährlich ausgeschüttet. 
Das Programm liefert die Rendite 7,51 %. 


Literaturhinweis: [13] 
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100 REM RENDITE E. WERTFAFIERS BEI WECHS. ZINS 
110: 

120 CLS 

130 FRINT STRINGE (20,61) 

140 FRINT" Rendite Ense Wertpapiers!" 

150 FRINT STRINGE (20,61) 

140 : 

170 REM „uunsunennn Bun ner en "rennen nnnnnn „ EINGÄBE 
180 FRINT:INFUT" Laufzeit in Jahren";N 

17G DIM FiN) 

200 FRINT:FRINT" Zins in %" 

210 FOR I=1 TON 


ARO FRINT" im Jahr"; 1; :INFUT F(L 
230 NEXT I 
Z40 : 


250 REM INTERVALLSCHACHTELUNG FUER EFFEETIVZINS 
ZA0 K0=l0:X1=100 

70 X=(XO+KX1)/Z2 

280 GOSUB 400 

290 R=(1+X/100)”N-1 

200 IF ABS(QO-R)z.OG001l THEN #50 

>10 IF O>R THEN X0=%X :GOTO 270 

20 X1=X:560T0 270 


=20 3 


SAU REM nn ee „menu nnn . AUSGABE 
550 FRINT:FRINT STRINGS (20, 45) 
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5-18) 
370 
80 
E90 
400 
410 
420 
430 
440 
450 
460 
470 
480 


FRINT TAR(8) USING " Rendite = #HH#HH.## 7"5X 
FRINT STRINGE (30,45) 
END 


REM “u... ..UNTERFROGRAMM FUER EFFEETIVZINS 
Ü=0 
FOR I=1 TON 
O=O+F (CI) /100 
Z=Q#+X/100 
IF I=N THEN 470 
Q=0+2Z 
NEXT I 
RETURN 


Laufzeit in Jahren?” & 


Zins in % 

im Jahr 1 7 5.75 
im Jahr 2 7 7.25 
im Jahr 3 7 7.5 
im Jahr 4 7 8 

im Jahr 5 7 8.25 
im Jahr & ” 9 


Rendite = 7.51% 
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12. ENDWERT REGELMASSIGER ZAHLUNGEN 


Viele Zahlungen für Sparverträge, Versicherungen, Unterhaltszahlungen usw. 
werden in Form von regelmäßigen Raten geleistet. 


Werden jeweils am Anfang von n Jahren jährlich R DM auf ein Konto einge- 
zahlt und jährlich mit p % verzinst, so ist am Ende des letzten Jahres der End- 
wert der Zahlungen 


qan-1 
q-1 
(Endwert einer vorschüssigen Rente). Dabei gilt 


q=1+ 5 (Aufzinsfaktor). 


Erfolgen die Zahlungen nachschüssig, d.h. am Ende des Jahres, so gilt 
—i 


En=R a1 


(Endwert einer nachschüssigen Rente). 


Werden die Zahlungen unterjährig verzinst, so ist theoretisch der Zinssatz p 


durch — und die Anzahl n der Zinsperioden durch ni zu ersetzen. 


Jedoch berechnen Banken Rentenendwerte nach folgender Formel 
i i—1 
=R(—- +) (an _ üssi 
En=R Dr 3 ) (q% —1) nachschüssig 


bzw. 
i i+1 
=R(— +) (an — üssi 
En em: + p) ) (qN —1) vorschüssig. 


Diese Bankformeln gelten bei unterjähriger Verzinsung; für i=1 gehen sie nä- 
herungsweise in die vorher angegebenen Formeln über. 


Für einen Sparvertrag werden beispielsweise 20 Jahre lang am Monatsersten 
200 DM eingezahlt. Welchen Endwert haben die Zahlungen bei 4,5% Jahres- 
zins? 
Die Bankenformel liefert 

12 
0,045 
= 77.126,64 DM 


E20 = 200 DM ( + 6,5) (1,04520 -1) 
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Zum folgenden Programm 


Nach Eingabe der Anzahl der jährlichen Zahlungen, des Zinssatzes, der Lauf- 


zeit und der Zahlungshöhe, berechnet das Programm den Endwert der Rente 
nach der Bankenformel. 


Beispiel 


Für einen 10.000 DM-Kredit müssen 6 Jahre lang am Monatsende 213,— DM 
bezahlt werden. Welchen Endwert haben die Zahlungen, wenn sie mit 8% ver- 
zinst werden? 


Das Programm liefert den Endwert 19.438,16 DM. 


G, 


E37 
VY 
NY 
NZ 


7 


WODDT Z 


__ 


iD GERN 


*Geldwechsler hinter seiner Wechselbank’’ 
Holzschnitt von Hans Weiditz, Augsburg 16. Jahrhundert 
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€9 


REM zauneenns ENDWERT REGELMAESSIGER ZAÄHLUNGEN 


FRINT STRINGE (39,61) 
FRINT" ENDWERT REGELMAESSIGER ZAHLUNGEN" 
FRINT STRINGE (39,61) 


REM ana RE Ra ee .unnennnnnnnnn nen „EINGABE 
FRINT: INFUT" Wieviele Zahlungen pro Jahr"zI 
FRINT: INFUT" Hoehe der Zahlungen";R 
FRINT:INFUT" Zinssatz in %";F 

FRINT: INFUT" Laufzeit in Jahren";N 

FRINT: INFUT" Vorschuessig (J/N) ";A# 


REM „uuenunenennunnnen une n nn nn nn a BERECHNUNGEN 


F=F/100 
Q=(1+F) "N 
E=R* (0-1) 


IF LEFTE(AF,L)="J" OR LEFTECAF,1)="Jj" THEN 290 ELSE F00 
E=E# (I/F+(1I+1)/2):60T0 330 

E=E#* (I/F+cI-1)/2) 

REM: au ee Ben ae ara ee . AUSGABE 
FRINT=:FRINT STRINGE (39,45) 

FRINT USING " Endwert der Zahlungen ist ##H#H#H#H.4## DM"SE 
FRINT STRINGE (39,45) 

END 


Wieviele Zahlungen pro Jahr” 12 
Hoehe der Zahlungen” ZIE 
Zinssatz in %7 8 

Laufzeit in Jahren?” & 
Vorschuessig(J/NIT n 


64 


13. BARWERT REGELMASSIGER ZAHLUNGEN 


Bei Versicherungs- und Unterhaltszahlungen werden regelmäßige Zahlungen 
oft durch eine einmalige Zahlung oder Prämie abgelöst. 


Der Barwert solcher Zahlungen ist somit der Anfangswert eines Kapitals, des- 
sen Umwandlung in Rente die entsprechenden Zahlungen liefert. Die Formel 
für den Barwert von Zahlungen erhält man, indem man die Rentenendformel 
abzinst; d.h. durch qN dividiert: 


qan—1 I 
B = Rq ——— vorschüssig 
aNlq-1) 
bzw. 
n_ 
B=R Sa. nachschüssig 
aNlq-1) 
Die entsprechenden Bankformeln für unterjährige Verzinsung lauten 
( zu & - ) 
B=R Bi Jr Re (qN —1) vorschüssig 
qn 
+ ul ) 
B=R I —— (q% —1) nachschüssig 
q 


Durch welche Einmalprämie kann eine Versicherungsprämie über 200,— DM, 
die 20 Jahre lang am Monatsersten bezahlt und mit 4% verzinst wurde, abge- 
golten werden? 

Der Barwert der Zahlungen ist 33.323,48 DM. 


Zum folgenden Programm 


Nach Eingabe der Anzahl der Zahlungen, des Zinssatzes, der Laufzeit, der 
Zahlungshöhe wird der Barwert der Zahlungen nach der Bankformel berech- 
net. 
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Beispiel 

Durch ein Testament wird ein Mann verpflichtet, seiner 50jährigen Schwester 
lebenslänglich eine Wohnung in dem testamentarisch vermachten Haus zu 
überlassen. Durch welche einmalige Zahlung kann das Wohnrecht abgelöst 
werden, wenn die Monatsmiete der Wohnung 400 DM beträgt? 


Da die Schwester eine mittlere Lebenserwartung von 78 Jahren hat, entspricht 
dem Wohnrecht eine monatliche Rente von 400 DM mit einer Laufzeit von 
28 Jahren. Der Barwert der Rente beträgt bei 4% Zins vorschüssig 81.715,66 
DM. 


Siehe Anhang B: Statistische Lebenserwartung. 
Literaturhinweis: [1], [9] 
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19 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
viele] 
Z10 
20 


a0 


240 
250 
260 
270 
i=18) 
290 
AOO 
Z10 
FO 
330 
340 
350 
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REM zen... . BAÄRWERT REGELMAESSIGER ZAHLUNGEN 
CLS 

FRINT STRINGE (39,61) 

FRINT" Barwert regelmaessiger Zahlungen" 
FRINT STRINGE (39,61) 

REM zunn sen een EINGABE 
FRINT: INFUT" Wieviele Zahlungen pro Jahr"z1 


FRINT: INFUT" Hoehe der Zahlungen";zR 
FRINT: INFUT" Zinssatz in %";F 


‚FRINT: INFUT" Laufzeit in Jahren";N 


FRINT: INFUT" Vorschuessig (J/N) ";A# 


REM 2ussae „nunrnnenenenn nn nnn nn a BERECHNUNGEN 

F=F/100 

Q=(1+F) "N 

EB=R# (0-1) /0 

IF LEFTE(AF,1)="J" OR LEFTE(AF,1)="Jj" THEN Z90 ELSE 300 
EB=B#* (I/F+(I+1)/2):60T0 F30 

B=RB#(I/F+(I-1)/2 


REM „u... NR eier AUSGÄRE 
FRINT:FRINT STRINGE (29,45) 

FRINT USING " Barwert der Zahlungen ist #######.## DM";B 
FRINT STRINGE (39,45) 

END 


Wieviele Zahlungen pro Jahr”? 12 
Hoehe der Zahlungen? 400 
Zinssatz in 77 4 

Laufzeit in Jahren?” 28 


Vorschuessig(J/NIT Jj 


Earwert der Zahlungen ist 81715.664 DM 
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14. UMWANDLUNG EINES KAPITALS IN RENTE 


Sollen aus einem Kapital K regelmäßige Zahlungen R geleistet werden, so 
wird das Kapital aufgezehrt, wenn die entnommenen Zahlungen die Zins- 
erträge übersteigen. 

Die Höhe der Rente kann der Rentenbarwertformel entnommen werden (vgl. 
Programm 13): 


N (a— 
EN achechtesis 
qan-1 
bzw. 
n—1 (a— 
R=K g -— ) vorschüssig. 


Für unterjährige Verzinsung wird die Bankenformel angewandt: 


R=K ar nachschüssi 
= —g achschüssig 
1253 + E (qn —1) 
R=K ar hüssi 
u j ; +1 vorsc ussıg 
a + 7) (gan —1) 


Eine Abiturientin möchte ihre Aussteuerversicherung in Höhe von 25.000 DM 
zur Finanzierung ihres Studiums verwenden. Bei 4% Verzinsung und fünfjähri- 
gem Studium erhält sie monatlich vorschüssig 


1,045 
+ 6,5) (1,045 —1) 


R = 25.000 DM - 
( 


12 = 458,05 DM 


0,04 
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Zum folgenden Programm 
Nach Eingabe des Kapitals, der Anzahl der jährlichen Auszahlungen, der Lauf- 


zeit und des Zinssatzes berechnet das Programm die sich ergebende Rente 
nach der Bankenformel. 


Beispiel 

Eine 50jährige Witwe soll für den Verkauf eines Grundstücks im Wert von 
240.000 DM eine Leibrente erhalten. Da sie eine Lebenserwartung von 78 Jah- 
ren hat, kann sie bei 4% eine monatliche Rente von 1174,81 DM erwarten. 


Die hier angewandte Methode zur Berechnung von Leibrenten gilt nur nähe- 
rungsweise. Die genaue Berechnung von Leibrenten stützt sich auf Sterbe- 
tafeln (siehe dazu z.B. [1]). 


i 
! 
’ 

fl 


2) 


S 


STH 


dm. 


“Kaufmann inmitten seiner Familie’ 
Holzschnitt von H. Schauer, Augsburg 1477 
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kZ 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
OO 
210 
ZERO 
SEO 
240 
250 
260 
270 
280 
290 
ZOO 
>10 
SEO 


30 


340 
350 
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REM „nun... UMWANDLUNG EINES EAFITALS IN RENTE 


FRINT STRING# (39,61) 

FRINT" Umwandlung eines Kapitals in Rente" 
FRINT STRINGF (39,61) 

REM aaa seen ae ae EINGABE 
FRINT: INFUT" Wieviele Zahlungen pro Jahr"z1I 
FRINT: INFUT" Hoehe des Kapitals";E 

FRINT: INFUT" Zinssatz in %";F 

FRINT: INFUT" Laufzeit in Jahren";N 

FRINT: INFUT" Vorschuessig (J/N) ";A# 

REM „nuunnnnennn nun nenn nenn nn nn a BERECHNUNGEN 
F=F/100 

A=(1+P) “N 

R=K#Q/ (0-1) 

IF LEFT£(AF,1)="J" OR LEFTE(CAF,1)="Jj" THEN 290 ELSE 300 
R=R/ (T/F+(I+1) /2):6G0T0 330 


R=R/ (I/F+(1I-1)/2) 
REM „nununnnene Doreen nenn AUSGABE 
FRINT:FRINT STRING# (39,45) 


FRINT USING " Hoehe der Rente #####4#.4## DM":R 
FRINT STRINGF$ (39,45) 
END 


Wieviele Zahlungen pro Jahr” 12 
Hoehe des Kapitals” 240000 
Zinssatz in %7T 4 

Laufzeit in Jahren” 28 


Vorschuessig (J/N)? j 
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15. EWIGE RENTE 


Ist die Laufzeit einer Rente nicht beschränkt, so spricht man von einer ewigen 
Rente. 


Bringt das Kapital B, jährlich zu p % verzinst, R DM Zins, so kann dieser Zins- 
ertrag als ewige Rente ausgezahlt werden, ohne das Kapital zu mindern. 
Der Barwert einer ewigen Rente ist somit 


R 
B= nachschüssig 


bzw. 


_ Ra near: 
B= D/100 vorschüssig. 
Eine Stadt möchte jährlich einen Kulturpreis in Höhe von 10.000 DM aus- 
setzen. Bei 5% Zins muß bei nachschüssiger Zahlung ein Stiftungsfond über 
10000DM _ 
5 200.000 DM 
eingerichtet werden. 


Zum folgenden Programm 


Je nachdem, ob der Barwert oder die ewige Rente berechnet werden soll, ist 
1 bzw. 2 einzugeben. Das Programm berechnet die gesuchte Größe nach den 
oben angegebenen Formeln. 


Beispiel 
Eine Gemeinde möchte die Wasserrechte eines Landwirts, die einen jährlichen 
Wert von 500 DM entsprechen, durch eine einmalige Zahlung ablösen. Bei 


4% Zins und vorschüssiger Zahlung haben die Wasserrechte den Barwert 
13.000 DM. 


Literaturhinweis: [1], [9] 
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100 REM „.uuunn. nnunnsenen .n..... „... EWIGE RENTE 


110 : 

120 CLS 

130 FRINT STRINGE (30,61) 

140 FRINT" Ewige Rente" 

150 FRINT STRINGFE (20,61) :FRINT 

180 : 

170 REM „vnunennn ein nee .... EINGABE 


180 FRINT 
190 FRINT 


200 FRINT" Barwert gesucht "3" 1 R 
210 FRINT 
20 FRINT" Rente gesucht > 2 


30 FRINT 

240 FRINT 

250 INFUT A 

250 IF Az>1 AND Ar>Z2 THEN FRINT CHRE(7); "1 oder ? eingeben":60T0 250 
270 ON A GOTO 290,460 

280: 

290 REM „uunenuennnn nun nenn nenn nn nn BARWERT GESUCHT 
>00 FRINT: INFUT" Jahresrente in DM";R 

=10 FRINT: INFUT" Zinsfuss in % ";F 

>20 FRINT: INFUT" Vorschuessig (J/N) ";A# 

SEO: 

340 REM zuun.n a ee „=... . BERECHNUNG 
3350 F=F/100 


SL 


60 
370 
>80 
290 
AO 
410 
420 

30 
440 
450 


460, 


470 
480 
490 
So0o 
510 
SRO 
ee] 
540 
30 
560 
370 
580 
5970 
016) 
sl 


Q=1+F 

B=R/F 

IF LEFT$(A&,1)="J" OR LEFTF(AF,1)="j" THEN B=B#O 
REM as ON ns AUSGABE 
PRINT:PRINT STRINGE (39,45) 


FRINT USING " Der Barwert betraegt ##4##HH#4#.## DM";B 
FRINT STRINGE (39,45) 

END 

REM .ue sense nee nenne „„RENTE GESUCHT 

FRINT: INFUT" Vorhandenes HEapital";BE 

FRINT: INFUT" Zinsfuss in % "sF 

FRINT: INFUT" Vorschuessig (J/N) ";A# 

REM acer in BERECHNUNG 
F=F/100 

Q=1+F 

R=B#F 

IF LEFTE(AL,1)="J" OR LEFTE(AF,I)="j" THEN R=eR#o 
REM „suus,0200 ae AUSGABE 
FRINT=:FRINT STRINGE (397,45) 

FRINT USING "Die ewig.Rente betr. jihrl. ######.## DM 
FRINT STRINGE (39,45) 

END 


HR 


Barwert gesucht 1 


r) 


Rente gesucht 


ad 
Jahresrente in DM? 500 
Zinsfuss in 74 
Vorschuessig (J/N)I?T j 
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16. RATENTILGUNG 


Bei der Ratentilgung wird — im Gegensatz zur Annuitätentilgung — der Kredit- 
betrag in gleichbleibenden Raten getilgt. 

Wird der Kreditbetrag K gleichmäßig in n Jahren getilgt, so beträgt eine 
Tilgungsrate 

K 
T= a 

Neben den Tilgungen T sind noch Zinszahlungen für die jeweils vorhandene 
Restschuld fällig. Da diese Restschuld gleichmäßig kleiner wird, vermindert 
sich ebenfalls der Zinsanteil bei den Rückzahlungen. Beträgt der Zins p %, 
so ist am Ende des k-ten Jahres die Rate 


Kp 


R = 00n 


(n-k+1) 


zu zahlen. 


Die Belastung sinkt jährlich um einen festen Betrag (abnehmende arithmeti- 
sche Folge). Werden jährlich z.B. 8000 DM getilgt bei 12 % Zins, so verringert 
sich die Belastung jährlich um 


8000 DM - 0,12 = 960 DM. 
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Zum folgenden Programm 


Nach Eingabe der Kredithöhe, des jährlichen Zinssatzes und der Laufzeit in 
Jahren, druckt das Programm den zugehörigen Tilgungsplan aus. 


Beispiel 
Ein Darlehen in Höhe von 60.000 DM mit 12% Zins soll innerhalb von 10 Jah- 
ren durch Ratentilgung zurückbezahlt werden. Im ersten Jahr sind 6.000 DM 
Tilgung und 
60000 DM - 0,12 = 7200 DM Zins 
fällig. Die anfängliche jährliche Belastung von 
6000 DM + 7200 DM = 13200 DM 
nimmt somit jährlich um 720 DM ab. 
Der genaue Tilgungsplan kann dem Programmausdruck entnommen werden. 


Literaturhinweis: [9] 


“Ein Kaufmann liest einem Schuldner die fälligen 
Zahlungen aus dem Schuldbuch vor; der Geselle 
berechnet am Rechenbrett die fällige Zahlung” 
Holzschnitt aus Luthers Deutschem Katechismus 
von 1530 
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6/ 


100 
110 
120 
130 
140 
150 
140 
170 
180 
190 
ZOO 
210 
ARO 
230 
240 
tue) 
260 
270 
280 
290 
ZOO 
10 
Z2Ö 
330 
240 
350 
52.18) 


REM „uuenennenen nme un nenne .. .„. RATENTILGUNG 


FRINT STRINGE$ (25,61) 

FRINT" Ratentilqgung" 

FRINT STRINGE (25,61) 

REM 2uueun nennen ren nun nn EINGARE 
FRINT: INFUT" Eredithoehe"zEk 

FRINT: INFUT" Jahreszinssatz in %";F 

FRINT: INFUT" Laufzeit in Jahren";N 

FRINT: INFUT" Wieviele Zinsperioden pro Jahr"zI 


"T=HK/(N*TD) 


F=F/1 

S=Ü 

REM 00 ee eier ia AUÜSCÄRE 
FRINT:FRINT STRINGE (39,45) 


FRINT"Fer. Rate Tilg.ant. Zinsant. Rest! 
FRINT STRING$ (39,45) 
FOR J=1 TO N#I 

Z=K#F/100 

5=$+Z7Z 

R=2+T 

K=H-T 


FRINT USING "HH HJ ,R,T, ZH 


NEXT J 


370 
>80 
390 


FRINT STRINGE (39,45) 


FRINT TAB (8) 


400 FRINT STRINGE (39,45) 


410 


END 


USING " 


Zinssumme= ##H#H##H#H#.## DM"SS 


Kredithoehe” 


Jahreszinssatz 


“1881018 


in 


%2 12 


lL.aufzeit in Jahren? 10 


Wieviele Zinsperioden pro Jahr” 1 


SONO $iünNe 


10 


13200.00 
12480.00 
117&0.00 
11040.00 
10320.00 
IHHOD. OO 
BERO. GO 
8160.00 
7440.00 
6720.00 


HOOO. OO 
HOOG. OO 


HOOO. OO 
SOOO. GO 


HOOO,. CO 
HOOO.OO 


HOOO. OO 
HOOO. GO 


HOOO.OO 
GOOD. GO 


7200.00 
6480.00 
3760.00 
5040.00 
ARO.00 
SH00. 00 
2880.00 
2160.00 
1440.00 


20.00 


54000.00 
48B000.00 
42000.00 
6000.00 
ZO000.00 
24000.00 
18000.00 
12000,.00 


HO00,00 


0.00 


Zinssumme- 


39600 .00 
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17. ANNUITATENTILGUNG 


Während bei der Ratentilgung der Tilgungsanteil konstant bleibt, ist bei der 
Annuitätentilgung die jährliche Belastung (= Annuität) gleichbleibend. 


Wie beim Effektivzins geht man davon aus, daß der Endwert des ausgeliehe- 
nen Kapitals gleich dem Endwert der geleisteten nachschüssigen Zahlungen ist: 


n_1ı 
ae 
K-q R gi 
Auflösen dieser Gleichung nach R liefert die Annuitätenformel 
Na— 
R=xK9 (q-1 = 
qan-1 


die identisch ist mit der Rentenformel, die man erhält, wenn ein Kapital in 
eine Rente verwandelt wird (vgl. Programm 14). 


Für eine Hypothek von 100.000 DM ist bei 8% Zins und 25 Jahren Laufzeit 
eine Annuität 


1,0829 . 0,08 


R = 100000 DM — = 9367,88 DM 
0825 - 1 


fällig. Oft wird jedoch nicht die Laufzeit, sondern die Tilgungsrate i vorgege- 
ben. Die Laufzeit errechnet sich dann aus der Formel 
log (1 + a 

n= ———, 
ZB; 
100 
dabei kann für log der natürliche oder der Zehner-Logarithmus gewählt wer- 
den. 
Bei Hypotheken wird häufig eine Tilgungsrate i= 1% genommen; dies ergibt 
bei 7,5% Zins die Laufzeit 


log(1 + 


_ log (1+7,5) _ 
n = 109 1,075 = 29.5913 Jahre. 
Bei Bauspardalehen sind i = 7% und p = 5% üblich; hier ergibt sich eine 
Laufzeit von 
log (1+5/7) 


n = Tog1.05 = 11,0472 Jahre. 
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Zum folgenden Programm 
Nach Eingabe der Kredithöhe, des jährlichen Zinssatzes, der Laufzeit in Jah- 


ren, wird der Tilgungsplan der Annuitätentilgung ausgedruckt. 
Beispiel 


Eine Hypothek von 100.000 DM soll in 10 Jahren bei 12% Zins durch Annui- 
täten getilgt werden. Die Annuität beträgt 


17.698,42 DM. 
Dies entspricht einer Monatsrate von 
1474,87 DM, 


falls die Tilgungszahlungen nicht unterjährig verzinst werden. 
Der genaue Tilgungsplan kann dem Programmausdruck entnommen werden. 


Literaturhinweis: [9] 
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€8 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
ZOO 
210 


220 


AO 
240 
50 
260 
270 
280 
290 
ZOO 
310 


HEM anna nenn ANNUITAETENTILGUNG 


C1.5 

FRINT STRINGE (20,61) 

FRINT" Annuitaetentilgung" 
FRINT STRINGE (30,61) 


REM ans ee een DEREN EN EINGABE 
FRINT: INFUT" Kredithoehe'";k 
FRINT: INFUT" Jahreszinssatz in %";F 
FRINT: INFUT" Laufzeit in Jahren";N 
FRINT: INFUT" Wieviele Zinsperioden pro Jahr"zsI 
REM wsesn essen nee BERECHNUNG 
F=F/(100#I) 
Q=(1+F)"(N#I) 
A=H.*Q*F/ (0-1) 
T=A/Q 
S=Ü0 
REM „vous 00nne nun ones nun nenn nn «AUSGABE 
FRINT:FRINT STRING# (39,45) 
FRINT"Fer. Annuit. Tilg Zinsant. Rest “ 
FRINT STRING (39,45) 
FOR J=1 TO N#kI 
Z=A-T 
K=E-T 
S=S+Z 
FRINT USING "## #HHH#. #4 BHHHH. HH HHHHH. HH HHHHHH. HH" J,A,T,Z,H 
T=T# (1+F) 
NEXT J 
FRINT STRING#$ (29,45) 
FRINT TAB(8) USING " Zinssumme= ######H4.## DM":S 
FRINT STRINGE (29,45) 
END 


Jahreszinssatz 


Laufzeit 


in %? 12 


in Jahren? 10 


Wieviele Zinsperioden pro Jahr” 1 


Fer. Annuit 
1 17698.42 
2 176998.42 
3 .17698.42 
4 176998.42 
5 17698.42 
6 17698.42 
7 17698.42 
8 17698.42 
7 17698.42 

10 17698.42 


3698.42 


482.25 
OL nc 


7148.09 

8005.87 

8966.57 
10042.56 
11247.66 
12597.38 
14109.07 
15802.16 


12000.00 
11316.19 
10550. 32 
9692.55 
8731.85 
7659.86 
6450.75 
101.03 
3589.35 
1896.26 


94301.58 
87919.35 
80771.26 
72765.40 
63798.82 
33750.260 
42508. 60 
9911.22 
15802.15 

-0.01 
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18. WERTMINDERUNG bzw. STEIGERUNG EINES OBJEKTS 


Die Wertänderung eines Objekts kann wie die Verzinsung eines Kapitals nach 
der Zinseszinsformel 


Kn = Koa 


berechnet werden (vgl. Programm 6). Der Aufzinsungsfaktor q=1 + a be- 


stimmt sich daraus zu 100 
„n/Kn 
q = — 


Ko 
entsprechend der Zinsatz- bzw. die Änderungsrate 


n Kn 
p = (qa-1) - 100% = ( —— -1) 100%. 
Ko 


Ein Reihenhaus vom Kaufpreis 342.000 DM konnte nach 4 Jahren zu 
475.000 DM verkauft werden. Es ergibt sich eine jährliche Rendite von 


4 
en _1) : 100% = (1.085596 —1) - 100% = 8,56 %. 


Das Vermögenseinkommen der privaten Haushalte in der Bundesrepublik 
stieg von 23,03 Mrd. DM 1970 auf 72,73 Mrd. DM im Jahre 1980 an. Die 
jährliche Wachstumsrate beträgt 


109 
9/72,73 10° _1).. 100% = (1,121869 1) - 100% = 12,2% 


23,03 - 109 


Die Kaufkraft der DM fiel von 100% 1970 auf 62% im Jahr 1979. Dies ent- 
spricht einer mittleren Geldentwertungsrate von 
9/62 


= 100 


) - 100% = (1 — 0,948271) - 100% = 5,2 % 
Zum folgenden Programm 


Nach Eingabe des Anschaffungs-, Wiederverkaufswerts und der Nutzungs- 
dauer berechnet das Programm die Wertsteigerungs- bzw. minderungsrate. 


Beispiel 


Ein PKW zum Listenpreis von 32.768 DM wird nach 4 Jahren zu 16.000 DM 
weiterverkauft. Dies entspricht einer jährlichen Wertminderungsrate von 
16,4%. 
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100 
110 
120 
130 
140 
150 
150 
170 
180 
1970 
ZOO 
210 
PRO 
ZERO 
240 
50 
60 
270 
280 
290 
A000 
10 
FO 


AO 


340 


REM „u... .WERTMINDERUNG/STEIGERUNG EINES OBJEKTS 
CLS 

FRINT STRING# (397,61) 

FRINT" WERTMINDERUNG/-STEIGERUNG" 

FRINT STRINGE (39,61) 

REM „mussen nen an nen ser nenn une nenn nn EINGABE 
FRINT: INFUT" ANSCHAFFUNGSWERT" ZA 

FRINT: INFUT" WIEDERVERKAUFSWERT":W 

FRINT: INFUT" NUTZUNGSDAUER IN JAHREN"SN 
FRINT:FRINT STRINGEF (40,45) 

IF W>A THEN 2970 

REM „neun unenn nennen nenn nenn nen» WERTMINDERUNG 
R=1-(W/AI"(L/ND 

FRINT"MITTL. WERTMINDERUNG ="; 

GOTO 320 


REM wanna „nennen ennen . WERTSTEIGERUNG 
R=(W/AI"(L/NI-1 

FRINT"MITTL. WERTSTEIGERUNG ="; 

FRINT USING "#HHR.## 72", LOO*«R 

FRINT STRINGE (40,45) 

END 


WERTMINDERUNG/-STEIGERUNG 


ANSCHAFFUNGSWERT? 32768 
WIEDERVERHAUFSWERT?T 16000 
NUTZUNGSDAUER IN JAHREN? 4 


MITTL. WERTMINDERUNG = 16.41 % 
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19. LINEARE ABSCHREIBUNG 


Zum Ausgleich der Wertminderung von Gütern erlaubt der Gesetzgeber eine 
steuerliche Abschreibung, im Amtsdeutsch auch Absetzung für Abnutzung 
(AfA) genannt (vgl. 8 7,1 EStG). 

Eine häufige Form der Abschreibung ist die lineare Methode, bei der der ge- 
samte Wertverlust in gleichbleibenden Raten abgeschrieben wird. 


Kann z.B. eine Büro-Einrichtung vom Wert 5600 DM innerhalb von 10 Jahren 
linear abgeschrieben werden, so werden jährlich 560 DM abgesetzt. 


Gebäude können i.a. nur mit 2% linear abgeschrieben werden. In bestimmten 
Fällen sind nach dem bekannten Paragraphen $ 7b EStG erhöhte Abschrei- 
bungen möglich. 


Zum folgenden Programm 


Nach Eingabe von Anschaffungswert, Schrottwert und Nutzungsdauer, wird 
für jedes Jahr die Höhe der Abschreibung und der verbleibende Restwert 
(= Buchwert) berechnet. 


Beispiel 

Eine Maschine vom Anschaffungswert 40.000 DM soll in 10 Jahren linear auf 
den Schrottwert 500 DM abgeschrieben werden. Die jährliche AfA ist somit 
3950 DM (vgl. Programmausdruck). 


Literaturhinweis: [5] 
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06 


110 
120 
120 
140 
150 
160 
170 
180 
1970 
200 
10 
220 


AAO 


240 
250 
60 
„70 
280 
290 
300 
10 
SEO 


SEO 


340 
350 
a0 
>70 
380 
390 


CLS 


FRINT STRINGE (30,61) 
FRINT" LINEARE ABSCHREIBUNG" 
FRINT STRINGE (20,61) 


nun nne .„..„EINGAÄRE 
FRINT: INFUT" Anschaffungswert";W 
INFUT" Schrottwert";5 

INFUT" Nutzungsdauer in Jahren";N 


REM „un nunsunnnensenuenee nn nn» BERECHNUNGEN 


A=(W-S) /N 


REM zuunsnnennnn nennen nennen nn nn AUSGABE 
FRINT STRING# (30,45) 
FRINT" Jahr Abschreibung Buchwert'" 
FRINT STRING$E (30,45) 


FRINT USING " [e) 
W=W-A 
FOR I=1 TON 


FRINT USING " ### ##HHHHHH DM HHHHHHH DM" T,A,W 


W=W-A 
NEXT I 


6 DM HHHHHHH DM"'SW 


FRINT STRINGF (30,45) 


INFUT"Weitere Berechnungen (J/N) "sÄAF 


IF LEFTE(AF,1)=" 5" 
END 


OR LEFTE(AF,LI="J" 


THEN 180 


Schrottwert”? 


Nutzungsdauer in Jahren? 10 


500 


Anschaffungswert? 40000 


Rs 

Dex) 
u! 
m 
u! 


1 3950 
2 A950 
= KA tue) 
4 A950 
je A950 
je) 3950 
7 39350 
8 3950 
9 A950 
10 3950 


FTalelale] 
36050 
Z2100 
28150 
24200 
20250 
16300 
12350 

8400 

4450 


Weitere Berechnungen 


9 


(J/N)? 


20. DEGRESSIVE ABSCHREIBUNG 


Da in den ersten Nutzungsjahren die Wertminderung besonders groß ist, ver- 
wendet man statt der linearen die degressive Abschreibung (auch geometrisch- 
degressiv oder Buchwert-AfA genannt). 


Da vom jeweiligen Buchwert ein konstanter Prozentsatz p abgeschrieben 
wird, stellen die Restwerte eine fallende geometrische Folge dar 


dabei ist A der Anschaffungswert. 

Nach 8 7 Abs. 2 EStG ist die degressive Abschreibung für bewegliche Güter 
und zwar mit dem 2,5fachen des linearen Satzes, höchstenfalls jedoch 25%, 
zulässig. 


Eine Büromaschine im Wert von 20.000 DM soll in 10 Jahren weitestgehend 
abgeschrieben werden. Dem linearen Satz von 10% entspricht dann der de- 
gressive von 25%. 
Dabei ergeben sich folgende Buchwerte 

Rı = 20000 DM - 0,25 = 5000 DM 

R2 = (20000-5000) DM - 0,25 = 3750 DM 

R3 = (20000-5000-3750) DM - 0,25 = 2812 DM 

Ra = (20000-5000-3750-2812) DM - 0,25 = 2110 DM 


Rıo = 1501 DM - 0,25 = 375 DM. 


Wie man sieht, werden die AfA-Beträge stets kleiner, so daß die Restwerte 
niemals Null werden. 
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Restwert einer Maschine vom Anschaffungswert 40.000 DM 
bei 20% degressiver Abschreibung 


28.000 


24.000 


20.000 


16.000 


12.000 


8.000 


4.000 


1 2 3 4 5 6 7 8 9 10 Ja 


Zum folgenden Programm 


Nach Eingabe des Anschaffungswertes, des Abschreibungssatzes und der 
Nutzungsdauer wird für jedes Jahr der Abschreibungsbetrag und der jeweilige 
Restwert berechnet. 


Beispiel 
Eine Maschine vom Anschaffungswert 40.000 DM soll degressiv 10 Jahre lang 
um 20% abgeschrieben werden. 


Wie man dem Programmausdruck entnimmt, beträgt der Buchwert nach 10 
Jahren noch immer 4295 DM. 


Literaturhinweis: [5] 


94 


S6 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
=10 
20 
20 
240 
„so 
O0 
270 
Bo 
270 
300 
310 
20 


AO 


>40 
350 
E7-18] 
370 
>80 


REM nununnnen „.... DEGRESSIVE ABSCHREIBUNG 


FRINT STRINGE (30,581) 
FRINT" Degressive Abschreibung" 
FRINT STRINGE (20,61) 


REM „uuunnnune a te een EINGABE 
FRINT: INFUT" Anschaffungswert";W 


INFUT" jaehrl.Abschreibungssatz 


INFUT" Nutzungsdauer in Jahren'";N 


F=F/100 


in %"4P 


REM zeenuunnunun nenn nn nn nennen nn a „ AUSGABE 
FRINT STRINGE (36,45) 
FRINT" Jahr Abschreibung Buchwert" 
FRINT STRINGE (30,45) 


FRINT USING " [®) 
W=W-A 
FOR I=1 TON 
A=W*F' 
W=W-A 


FRINT USING " ### HHHHHHH DM HHHHHHH DM"ST,A,W 


NEXT I 


0 DM #HHH#HH DM'SW 


FRINT STRINGE (30,45) 


FRINT: INFUT"Weitere Berechnungen (J/NI"zAF 


IF LEFT$(AF,D)="j" 
END 


OR LEFTE(AF,1)="J" 


THEN 180 


Anschaffungswert? 40000 
Jaehrl.AÄbschreibungssatz in %? 20 
Nutzungsdauer in Jahren? 10 


W) Oo DM 40000 DM 
i 8000 DM S2000 DM 
2 6400 DM 25600 DM 
z S120 DM Z0480 DM 
4 4096 DM 153984 DM 
3 3277 DM 13107 DM 
& 2621 DM 10485 DM 
7 2097 DM 8:87 DM 
8 16878 DM 6711 DM 
2? 1342 DM 39:67 DM 
10 1074 DM 4295 DM 
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21. GEMISCHT LINEARE UND DEGRESSIVE ABSCHREIBUNG 


Da bei der degressiven Abschreibung der Schrottwert Null nicht erreicht wer- 
den kann, ist nach $ 7,3 EStG der Übergang von der degressiven zur linearen 
Abschreibung erlaubt, jedoch nicht umgekehrt. Der günstigste Zeitpunkt da- 
für ist, wenn der lineare Abschreibungsbetrag dem degressiven gleichkommt. 
Bei einer Nutzungsdauer von 10 Jahren ist dies im 7. Jahr der Fall, der Rest- 
wert nach dem 6. Nutzungsjahr kann dann linear auf Null abgeschrieben wer- 
den. 


Zum folgenden Programm 


Nach Eingabe des Anschaffungswerts, des degressiven Abschreibungssatzes 
und der Nutzungsdauer wird für jedes Jahr der jeweilige Abschreibungsbetrag 
und der Buchwert berechnet. Das Programm geht zum optimalen Zeitpunkt 
von der degressiven zur linearen Abschreibung über; die Art der Abschreibung 
wird jeweils angegeben. 


Beispiel 

Eine Maschine vom Anschaffungswert 50.000 DM soll in 10 Jahren optimal 
auf den Wert Null abgeschrieben werden. 

Wie man dem Programmausdruck entnehmen kann, erfolgt die AfA 7 Jahre 
lang degressiv. Der Buchwert von 8899 DM nach dem 6. Jahr wird dann linear 
4 Jahre lang mit je 2225 DM abgeschrieben. Dabei stimmt im 7. Jahr der line- 
are und degressive Abschreibungsbetrag überein. 


Literaturhinweis: [5] 
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100 REM „..LINEARE UND DEGRESSIVE ABSCHREIBUNG 
110 a 

120 CLS 

130 FRINT STRINGE (39,61) 

140 FRINT TARB(10) "Gemischte Abschreibung" 

150 FRINT STRINGE (39,61) 

140 : 

DIE REN Ba ee eeneeun te „.. „EINGABE 
180 FRINT: INFUT" Anschaffungswert";A 

190 INFUT" degress.Äbschreibungssatz in %";F 
200 INFUT" Nutzungsdauer in Jahren";N 

210: 

220 REM vnunenunnnnnnnen en nnn nn nun en nn AUSGABE 
ZE0 FRINT STRINGE (39,45) 


„40 FRINT" Jahr Abschreibung RBuchwert Art" 

250 FRINT STRINGE (39,45) 

260 FRINT USING " © 0 DM HHHH#H#H#H# DM N N 3A,"Deg" 
270 5 


ZB80 REM „uunereennnnnnn nn. „ Degress. Äbschreihbung 

290 J=l 

300 B=A:F=F/100 

210 D=B#F 

E20 L=B/ (N-J+1) 

A300 IF L>D THEN 390 

>40 B=E-D 

350 FRINT USING "### HHHHHHH DM HHHH#4#4# DM N N ":7,D,RB,"Deg" 
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360 
370 
80 
90 
400 
410 
+20 
EC 
440 
450 
460 
470 
4B0 


J=J]+1:G60T0 310 


REM. wars ae re ern „.Lin. Abschreibung 
B=B-L 

IF Ri=0 THEN B=0 

FRINT USING "### HHHHHHH DM ##H#H#H#H DM 
J=JI+1 

IF Ji{=N THEN 390 

FRINT STRING$E (39,45) 

FRINT: INFUT"Weitere Berechnungen (J/NI"zÄF 
IF LEFT£E(AL,1)="j" OR LEFTE(AF,1)="J" THEN 
END 


180 


":J,L,ER,"Lin" 


Anschaffungswert?” 50000 
degress. Abschreibungssatz in %? 25 
Nutzungsdauer in Jahren? 10 


Jahr Abschreibung RBuchwert Art 
(e) 0 DM 50000 DM Deg 
1 12500 DM 37500 DM Deg 
2 9375 DM 28125 DM Deg 
3 7021 DM 21094 DM Deg 
4 5273 DM 15820 DM Deg 
ke 3955 DM 11865 DM Deg 
& 2966 DM 88997 DM Deg 
7 AZ25 DM 6674 DM Deg 
8 225 DM 4449 DM Lin 
9 A225 DM A225 DM Lin 
10 225 DM O0 DM Lin 
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22. DIGITALE ABSCHREIBUNG 


Auch bei der digitalen Abschreibung erhält man monoton fallende Abschrei- 
bungsbeträge, so daß in den ersten Nutzungsjahren die Abschreibungsbeträge 
besonders hoch sind. 

Werden dabei in den ersten drei Jahren die Abschreibungsbeträge der degressi- 
ven Methode überschritten, so ist die digitale AfA nach 8 7, Abs. 2 EStG nicht 
gestattet. Sie kann jedoch zur innerbetrieblichen Buchführung verwendet wer: 
den. 


Die digitale Abschreibung berechnet sich wie folgt: 

Ist die Nutzungsdauer n Jahre, so bildet man die Summe 
s=1+2+3+...+n 

und erhält damit folgende Abschreibungsbeträge 


1.Jahr TA 
2. Jahr sel A 
3. Jahr 2a 
1 
n-tes Jahr zA 


Dabei ist A der Anschaffungswert. 
Beispiel 
Eine Anlage im Wert von 30.000 DM soll digital in 5 Jahren vollständig abge- 
schrieben werden. Mit der Summe 
s=1+2+3+4+5 = 15 
berechnen sich die Abschreibungsbeträge zu 


1. Jahr 2 . 30.000 DM = 10.000 DM 
2. Jahr n .30.000DM = 8.000 DM 
3. Jahr = - 30.000 DM = 6.000 DM 
4. Jahr m .30.000 DM = 4.000 DM 
5. Jahr n. :30.000DM = 2.000 DM 


Es ergibt sich hier eine fallende arithmetische Folge mit dem Anfangswert 
10.000 DM und der Differenz 2.000 DM. 


101 


Restwert einer Maschine vom Anschaffungswert 50.000 DM 
bei digitaler Abschreibung in 10 Jahren 


50.000 


45.000 


40.000 


35.000 


30.000 


25.000 


20.000 


15.000 


10.000 


5.000 


Zum folgenden Programm 


Nach Eingabe des Anschaffungswerts, Schrottwerts und der Nutzungsdauer 
wird für alle Jahre der jeweilige Abschreibungsbetrag und der Restwert ermit- 
telt. 


Beispiel 


Eine Maschine vom Anschaffungswert 50.000 DM soll in 10 Jahren digital auf 
den Schrottwert 200 DM abgeschrieben werden. 

Wie man dem Programmausdruck entnimmt, nimmt der Abschreibungsbetrag 
vom Anfangswert 9.055 DM jährlich jeweils um 905,45 DM ab. 
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eol 


100 
110 
120 
130 
140 
150 
160 
170 
180 
1970 


else) 


210 


Z20 
ZEO 
240 
ZI0 
260 
270 
80 
290 
ZOO 
210 
ZOO 
AAO 
340 


50 


REM Zune DIGITALE ABSCHREIRUNG 


FRINT STRINGE (20,61) 
FRINT" Digitale Abschreibung" 
FRINT STRINGE (30,61) 
REM aa ee areas ..... EINGABE 
FRINT: INFUT" Anschaffungswert":W 
INPUT" Restwert in DM"SS 
INFUT" Nutzungsdauer in Jahren";N 
REM „seen eunennon nun nen nn ee nun nn a BERECHNUNG 
=2# (W-5) /N/ (N+1) 
=P#(W-S) /(N+I) 
REM „nun unnnunennennnn une nn en nn „ AUSGABE 
FRINT STRINGE (30,45) 
FRINT" Jahr Abschreibung Buchwert'" 
FRINT STRINGE (30,45) 
FRINT USING " 1®) 0 DM #HHH#HH DM"SW 
FOR I=1 TON 
W=W-A 


FRINT USING " ### HHHHHHH DM #HHHHHH#H DM"ST,A,W 


A=A-D 
NEXT I 


360 FRINT STRINGF (30,45) 

70 3 

380 FRINT: INFUT"Weitere Berechnungen (J/NI"sA#F 
390 IF LEFTE(AF,1)="3" OR LEFTFCAF,D="J" THEN 
400 END 


Anschaffungswert” SO000 
Restwert in DM? 200 
Nutzungsdauer in Jahren? 10 


C Go DM 50000 DM 
1 9055 DM 40945 DM 
2 8149 DM 32796 DM 
5 7244 DM 5552 DM 
4 6338 DM 19215 DM 
5 S4an DM 13782 DM 
6 4527 DM 9255 DM 
7 A6aE DM Sarn DM 
8 2716 DM 2916 DM 
7 1811 DM 1105 DM 
10 905 DM 200 DM 
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23. INTERNER ZINSFUSS BEI INVESTITIONEN 


Eine Methode zur Berechnung der Rentabilität einer Investition ist die Metho- 
de des internen Zinsfusses. 

Sind E1, E2,.. . , En die Investitionserträge, so wird der interne Zinsfuß da- 
durch bestimmt, daß der Barwert der Erträge gleich der Investitionshöhe K ist. 


E1 E2 En 
— + —— t+....t 
1+r  (1#r)2 (14r)n 


Da diese Beziehung eine nichtlineare Gleichung für den Zinsfuß r darstellt, 
muß eine Intervallschachtelung zur Berechnung durchgeführt werden. Ist der 
interne Zinsfuß kleiner als die zu erzielende Rendite, so ist die Investition un- 
rentabel. Mit dem internen Zinsfuß können auch verschiedene zur Diskussion 
stehende Investitionen miteinander verglichen werden. 


Zum folgenden Programm 


Nach Eingabe der Investitionshöhe, der Nutzungsdauer und der jeweiligen 
Erträge, berechnet das Programm mit Hilfe einer Intervallschachtelung den 
internen Zinsfuß. 


Beispiel 


Durch den Kauf einer Maschine im Wert von 10.000 DM kann ein Fabrikant 
während der nächsten 5 Jahre die Erträge 


1000 DM, 2000 DM, 2500 DM, 3000 DM und 3500 DM 


erzielen. Der Schrottwert der Maschine ist 500 DM. Das Programm liefert 
den internen Zinsfuß 6,57 %. 


Literaturhinweis: [10] 
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901 


REM „.INTERNER ZINSFUSS BEI INVESTITIONEN 
CLS 

FRINT STRINGE (25,61) 

FRINT" Interner Zinsfuss" 

FRINT STRINGE (25,61) 


REM „unuunnn .unnenneenennnnnnnn en  EINGÄRE 
FRINT: INFUT" Investitionshoaehe";k 
FRINT: INFUT" Zeitraum in Jahren";N 
FRINT: INFUT" Restwert'";R 
DIM E(N):FRINT 
FOR I=1 TO N 
FRINT" Ertrag von Jahr": Izs:INFUT E(D) 
NEXT I 
EiN)=E(N)+R 
REM „eunnnnn.. INTERVALLSCHACHTELUNG 
Fi=0:F2=1:F3=0 
F=(FiI+F2) 7/2 
IF ABS(F-FHD)E.O0001 THEN 410 
Fi=F 
S=Ö 
FOR I=1 TON 
S=S+HE(I) /(F+l) "I 
NEXT I 


201 


360 IF 5=EK THEN 410 

>70 IF K>5 THEN FZ=F ELSE Fi=rF 
380 GOTO 290 

E90: 


400 REM „neueren unen a wa nun nun 


410 FRINT:FRINT STRINGE (297,45 

420 FRINT USING "Interner Zinsfuss 
4320 FRINT STRINGE (29,45) 

440 END 


ag AUSGABE 


HHHH.H#H 7", 1LOORF 


Investitionshoehe? 10000 


Zeitraum in Jahren? 5 


Restwert”? 500 

Ertrag von Jahr 1000 
Ertrag von Jahr 
Ertrag von Jahr 
Ertrag von Jahr 
Ertrag von Jahr 


E 
7 PO00 
? 2500 
7 E000 
Kap } 


3500 


nP$piibir 
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24. KAPITALWERTMETHODE BEI INVESTITIONEN 


Da die Methode des internen Zinsfusses ohne Rechner nicht durchführbar ist, 
verwendete man früher die Kapitalwertmethode, bei der mit geeigneten Tabel- 
len gearbeitet wird. 

Dabei berechnet man den Barwert der Investitionserträge für einen vorgegebe- 
nen Zinssatz (Kalkulationszinssatz) und vermindert ihn um die Investitions- 
höhe. Ist der so berechnete Kapitalwert positiv, so ist die Investition rentabel. 
Ein negativer Kapitalwert zeigt, daß der kalkulierte Zinsfuß nicht erreicht 
worden ist. 


Mittelstand - 
Säule der Wirtschaft 
Kleine und mittlere 1 
Unternehmen 
inder 


Bundesrepublik 
Deutschland... 


...bilden aus | 


„beschäftigen | | Arbeitnehiher 


„machen |derUmsätze 


. | 1 des 
erwirtschaften | Sozialprodukts 


ds :|1der 
...tätigen m) Investitionen 


Zum folgenden Programm 

Nach Eingabe der Investitionshöhe, der Nutzungsdauer, der angestrebten Ren- 
dite und des Restwerts, berechnet das Programm den Kapitalwert der Investi- 
tion nach dem oben angegebenen Verfahren. 


Beispiel 
Durch eine Investition von 10.000 DM könnte ein Unternehmer in den folgen- 
den 5 Jahren folgende Erträge erzielen: 


1000 DM, 2000 DM, 2500 DM, 3000 DM und 3500 DM. 


Bei einer angestrebten Verzinsung von 10% ist der Kapitalwert der Investition 
—-1027 DM; d.h. die Investition erbringt nicht die gewünschte Rendite. 


Literaturhinweis: [10] 
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100 REM „.EAFITALWERTMETHODE BEI INVESTITIONEN 
110: 

120 CLS 

130 FRINT STRINGE (30,61) 

140 FRINT" HKapitalwertmethode" 

150 FRINT STRINGE (30,61) 

180 : 

170 REM „nun nnennnn nenn nun nn nn nenn nn nn „ EINGABE 
180 FRINT: INFUT" Investitionshoehe";k 

190 FRINT: INFUT" Zeitraum in Jahren";N 

z00 FRINT: INFUT" Gewuenschte Rendite in %";F 
=10 FRINT: INFUT" Restwert'";R 

220 FRINT 

ZERO 8 

240 REM „neun nnnnennnnnnne nn en nn « BERECHNUNGEN 
250 Q=1+F/100 

260 FOR I=1 TON 

270 FRINT" Ertrag im Jahr"; I;:INFUT E 

280 S=S+E/0”I 

=90 NEXT I 

300 5=S+R/O”N-K 

S10 0: 

SEONREM see "enenneennn en. AUSGÄRBE 
320 FRINT:SFRINT STRINGE (39,45) 

>40 FRINT USING "HKapitalwert d.Investition ########.## DM";S 
>50 FRINT STRINGE (39,45) 

360 END 


Investitionshoehe? 10000 


Zeitraum in Jahren” 5 


= 


Gewuenschte Rendite in 


Restwert” 


Ertrag 
Ertrag 
Ertrag 
Ertrag 
Ertrag 


500 


Jahr 
Jahr 


UVPüÜünnr 


1000 
2000 
FS00 
F000 
A500 
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25. ANNUITATENMETHODE BEI INVESTITIONEN 


Ebenfalls aus der Zeit des Handrechnens stammt die Annuitätenmethode. Aus 
Einfachheitsgründen geht sie von den durchschnittlichen Kosten und Erträgen 
aus, die durch die Investition anfallen. 

Die mittleren Kosten werden als Annuitätenzahlung (vgl. Programm 17) auf- 
gefaßt und können daher mit der Annuitätenformel berechnet werden. Über- 
steigen die so ermittelten durchschnittlichen Kosten die durchschnittlichen 
Einnahmen, so ist die Investition als unrentabel zu betrachten. Die Differenz 
der mittleren Einnahmen und Kosten stellt den durchschnittlichen Ertrag dar. 
Diese Differenz erlaubt auch wieder einen Vergleich zwischen mehreren zur 
Diskussion stehenden Investitionen. 


Zum folgenden Programm 

Nach Eingabe der Investitionshöhe, der Nutzungsdauer,dergewünschten Ren- 
dite, des Restwerts und der mittleren Kosten und Einnahmen pro Jahr, be- 
rechnet das Programm den durchschnittlichen Ertrag der Investition nach der 
Annuitätenformel. 


Beispiel 

Durch eine Investition in Höhe von 10.000 DM könnte ein Fabrikant 5 Jahre 
lang, bei durchschnittlich 1000 DM Kosten, durchschnittlich 3400 DM ein- 
nehmen. Die Rendite soll 10% betragen. 

Es ergeben sich mittlere Kosten in Höhe von 3506,08 DM. Der durchschnitt- 
liche Ertrag beträgt somit —106,08 DM. Die angestrebte Verzinsung wird also 
nicht erreicht. 


Literaturhinweis: [10] 
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100 
110 

20 
130 
140 
150 
160 
170 
180 
1970 
O0 
210 
AO 


PRO 


240 
50 
a0 
270 
280 
290 
00 
>10 
SEO 
AO 
340 
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REM „.ANNUITAETENMETHOÜDE BEI INVESTITIONEN 
CLS 

FRINT STRINGE (35,61) 

FRINT"  ANNUITAETENMETHODE" 

FRINT STRINGE (35,61) 

REM nu ee ne „euren... „ EINGABE 
FRINT: INFUT" Investitionshoehe"zEk 

FRINT: INFUT" Zeitraum in Jahren";N 

FRINT: INFUT" Gewuenschte Rendite in %";F 
FRINT: INFUT" Restwert";R 

FRINT: INFUT" Mittlere Eosten pro Jahr";C 
FRINT: INPUT" Mittlere Einnahmen pro Jahr";E 
REM en an „nennen nnnenn en. BERECHNUNG 
O=1+F/100:QN=O”"N 

C=(E-R)#FHEN/ (ON-L) /1O0+C 


REM „.u.... Brnunn nn „nun... AUSGABE 
FRINT:FRINT STRINGE (39,45) 

FRINT USING "Durchschnittl. Hosten HHRHHHH.HHU:C 
FRINT USING "Durchschnittl. Einnahmen ##HH##H##.##";E 


FRINT USING "Durchschnittl. Ertrag HHHHHHH. HHRUGSE-C 


FRINT STRINGE (39,45) 
END 


Investitionshoehe? 10000 
Zeitraum in Jahren” 5 
Gewuenschte Rendite in %7T 10 
Restwert” 500 

Mittlere Kosten pro Jahr” 1006 


Mittlere Einnahmen pro Jahr” 3400 


Durchschnittl. Kosten 3506.08 
Durchschnittl. Einnahmen 2400.00 
Burchschnittl. Ertrag -106.08 
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26. ENTSCHEIDUNG BEI MEHREREN ZIELEN 


Das Vorgehen wird an einem Beispiel (entnommen aus [4]) gezeigt. 
Von einer Unternehmensleitung werden folgende Firmenziele Zj und ihre Be- 
wertung gi formuliert: 


Z2 : Garantie einer 6%-igen Dividende 
Z3: 15% Rendite bei zusätzlichen Investitionen 


Z4 : Keine Personalentlassungen 


Z6 : Beibehaltung der Fertigungsqualität 


Z7 .: Förderung der Ortsgemeinde 


Zur Erreichung dieser Ziele werden drei Strategien diskutiert: 


1: Erweiterung der Produktionspalette und Erschließung 
neuer Märkte 


2: Beibehaltung der Firmengröße und technische Verbesserung 
der bisher erzeugten Produkte 


Beibehaltung der Firmengröße und Ersetzung von weniger 
gewinnbringenden Produkten durch rentablere 


Das Erreichen der Ziele Zi durch die Strategien j=1,2,3 wird durch (sub- 
jektive) Wahrscheinlichkeiten pjj mit O0 <pjj < 1 gekennzeichnet: 


O heißt, daß die Strategie das Ziel höchst unwahrscheinlich fördert; 0,5 be- 
deutet: die Strategie spricht weder für noch gegen das Ziel; 1 zeigt an, daß die 
Strategie das Ziel höchstwahrscheinlich fördert. Entsprechend sin ! die mittle- 
ren Werte zu verstehen. 
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Folgende Wahrscheinlichkeitstabelle wird gewählt: 


Multipliziert man die Zeilenelemente der Wahrscheinlichkeitstabelle mit den 
entsprechenden Bewertungseinheiten der Ziele, so erhält man ein Maß für den 
Nutzen der einzelnen Strategien. Für Strategie 1 ergibt sich die Summe 


0,4:0,25+0 ,2-0,3+0,8-0,1+0,8-0,15+0 ,3-0,05+0 ,6-0,05+0,8-0,1 = 0,485. 
Entsprechend folgt für Strategie 2 0,650 und für 3 0,595. Strategie 2 hat die 


größte Nutzensumme und ist daher im Sinne der von der Firma angestrebten 
Ziele optimal. 


Zum folgenden Programm 


Die Anzahl der Ziele und Strategien, die Wahrscheinlichkeitstabelle und die 
Zielbewertungseinheiten werden in Form von DATA-Werten eingelesen. Das 
Programm berechnet daraus die Nutzensummen und gibt die optimale Strate- 
gie aus. 

Im Programm wird das oben behandelte Beispiel berechnet (vgl. Programm- 
ausdruck). 
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6rl 


100 
110 
120 
1350 
140 
150 
1&0 
170 
180 
190 
ZOO 
„10 
ZEO 
ZEO 
LT) 
aso 
260 
270 
80 
290 
00 
10 


ERO 


ee 


0 


>40 
So 


REM .„...ENTSCHEIDUNG UNTER MEHREREN ZIELEN 
CLS 

FRINT STRINGE (39,61) 

FRINT" Entscheidung unter mehreren Zielen" 
FRINT STRINGE (79,61) 


REM „uunnnnnen a ee ELNEESEN 
READ N: REM ANZAHL DER ZIELE 


READ M: REM ANZÄHL DER STRATEGIEN 
DIM E(M,N) ,EiND 
FRINT:FRINT " Entscheidungsmatrixs" 
FOR I=1 TO M 
FOR EK=1 TON 
READ E(I,E): FRINT E(1,693; 
NEXT Es: FRINT 
NEXT I:FRINT 
FRINT" Bewertung der Ziele:" 
FOR I=1 TON 
READ RB(I)s FRINT R(Ds; 
NEXT I:FRINT 
REM zunnununnnennnnn nn nn nn» SIRÄTEGIE-WERTE 
FRINT:FRINT STRINGE (39,45) 
MX=0 


021 


57-18) 
370 
>80 
3970 
400 
410 
420 
430 
440 
450 
460 
470 
480 
4970 
500 
510 
320 


SEO 


540 
550 
560 
570 


FOR I 


=1 TO M 


S=Ü 
FOR E=1 TON 


S=S+E(I,E)*BCE) 


NEXT E 


FR 

IF 
NEXT 
REM . 
FRINT 
FRINT 
FRINT 
END 


REM . 


INT TAR(6)" Wert der Strategie"; I":";5 
S:MX THEN MX=S: J=I 
I 


.nnunnnnennnn . ÖFTIMALE ENTSCHEIDUNG 
STRING#E (39,45) 

"Optimale Entscheidung fuer Strategie";J 
STRING#$ (39,45) 


Luuueunannornuennn nen nnenunn cn. DATEN 


DATA 7 
DATA 3 


DATA 
DATA 
DATA 
DATA 


BD 
De 2 NS 
U, 20 ER Re Alte RR SR 


.25,.3,.1,.15,.05,.05,.1 


zum mmmmımmmummmmmımmımzımmmmmmmmaimmm 


Entscheidung unter mehreren Zielen 


4 .2..8 ..8 ..32 ..6 .8 


a5 .3 .1 ..15 .05 .05 .1 


Wert der Strategie 1: 
Wert der Strategie 2 : „63 
Wert der Strategie 3 : 
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27. ENTSCHEIDUNG BEI GEGEBENEN WAHRSCHEINLICH- 
KEITEN 


Während bei Programm 26 Entscheidungen unter frei wählbaren Zielen zu fäl- 
len waren, sind nun die äußeren Umstände, z.B. die wirtschaftliche Entwick- 
lung, vorgegeben. In der Entscheidungstheorie spricht man von den Gegeben- 
heiten als dem Zustand der Welt, die Entscheidung ist ein Spiel gegen die Na- 
tur. 

Auf die Zustände Zj, die mit den (subjektiven) Wahrscheinlichkeiten Pj ein- 
treten, kann durch Wahl einer Strategie i (i=1,2,. .) reagiert werden. 


Die Ergebnisse Eij, die man bei der Wahl der Strategie i beim Zustand der 
Welt Zj erhält, werden in einer Tabelle (Ergebnismatrix genannt) dargestellt: 


a zZ v4 he y4 


21 
E11 E12 E13 .... Eim 


Die Elemente der Tabelle können z.B. Gewinnerwartungen in DM sein. 


Die Gewinnerwartung eines Unternehmens sei, abhängig vom Konjunktur- 
verlauf, durch folgende Ergebnismatrix gegeben: 


Zeilen- Zeilen- 
minimum maximum 


Aufschwung Stagnation Rezession 


5.000 —1.000 —1.000 
10.000 3.000 4.000 3.000 10.000 


Es wird geschätzt, daß alle Zustände mit gleicher Wahrscheinlichkeit eintreten: 


1 1 1 
P1=2, P2=3 und p3= >. 
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In der Entscheidungstheorie (vgl. |11]) werden folgende Kriterien zur Wahl 
der optimalen Strategie genannt: 


a. Das Erwartungswert-Kriterium 
Es wird diejenige Strategie gewählt, die den größten Erwartungswert 


Ei = Ejıpı + Ei2p2 +... + EimPm 
erzielt. Diese Vorgehensweise entspricht der von Programm 28. 
Beim angegebenen Beispiel gilt: 


10.000 DM - 1 + 5000 DM - 1 + 3000 DM - 


1 
Ei = n 3 3 = 6000 DM 
E2 = 5000 DM 
E3 = 8000 DM 
E4 = 5667 DM. 


Nach dem Erwartungswert-Kriterium ist 3 die optimale Strategie. Eine Ent- 
scheidung nach diesem Kriterium ist risikoneutral. 


b. Das Minimax-Kriterium 

Das Minimax-Kriterium ist extrem pessimistisch; es wählt nämlich diejenige 
Strategie aus, deren ungünstigstes Ergebnis noch möglichst günstig ist. Dazu 
sucht man in der Ergebnismatrix das Maximum aller Zeilenminima; hier 
5000 DM. 

Im Sinne des Minimax-Kriteriums ist somit Strategie 2 optimal. 


c. Das Maximax-Kriterium 

Gegenüber dem Minimax-Kriterium ist das Maximax-Kriterium äußerst opti- 
mistisch; es wählt nämlich diejenige Strategie aus, die den überhaupt größten 
Gewinn verspricht. In der Entscheidungsmatrix wird dazu das Maximum aller 
Zeilenmaxima ausgesucht; hier 20.000 DM. 

Im Sinne des Maximax-Kriteriums ist also Strategie 2 optimal. 


d. Das Hurwicz-Kriterium 

Einen Ausgleich zwischen dem pessimistischen Standpunkt des Minimax-Kri- 
teriums und dem optimistischen Standpunkt des Maximax-Kriteriums schafft 
das Hurwicz-Kriterium. Dabei werden für alle Strategien die gewichteten Sum- 
men 


a Zeilenmaximum + (1 —a) - Zeilenminimum 


berechnet und diejenige Strategie ausgewählt, deren Summe am größten ist. 
Die Zahl & mit 0<a<1 heißt Optimismusindex. 
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Für « = 0,75 ergibt sich bei 
Strategie 1: 0,75 - 10.000 DM + 0,25 - 3000 DM = 8250 DM 
2: 0,75 :.5000 DM + 0,25 - 5000 DM = 5000 DM 
3: 0,75 - 20.000 DM + 0,25 - (-1000)DM = 14.750 DM 
4: 0,75 10.000 DM + 0,25 : 3000 DM = 8250 DM. 
Im Sinne des Hurwicz-Kriteriums ist also Strategie 3 optimal für & = 75%. 


Zum folgenden Programm 

Die Anzahl der Zustände, der Strategien, die Ergebnismatrix und die Wahr- 
scheinlichkeiten werden in Form von DATA-Werten eingelesen, ebenso der 
Optimismusindex. 

Das Programm druckt dann für jedes der beschriebenen Kriterien die optimale 
Strategie aus. 

Im Programm wird das angegebene Beispiel behandelt. 
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100 REM ENTSCHEIDUNG BEI GEG.WAHRSCHEINLICHE. 
120 Cı5 
130 FRINT STRINGE (39,61) 
140 FRINT " Entscheidung bei geg.Wahrscheinlichk." 
150 FRINT STRINGE (39,61) 
160 : 
LZOTREMN Sense aan „.ernnnsennne. „EINLESEN 
180 READ M: REM ANZAHL DER ZUSTAENDE 
190 READ N: REM ANZAHL DER STRATEGIEN 
200 DIM ACN,„M) „FM „MX CN) „MIND „END 
FOR I=1 TON 

FOR J=1 TO M 

READ A(l,J) 

NEXT J 
NEXT I 
5=0 
FOR I=1 TO M 

READ F(D 

S5=5+F(D 
NEXT I 
IF ABS (S-1)>.000001 THEN FRINT CHR& (7); "Wahrscheinlichkeit “>1": 


220 REM „u... .. BESTIMMUNG MINIMA UND MAXIMA 
>40 FOR I=1 TON 
&=1R) MI=A(I,1): MX=A(I,1) 
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END 


IKal 


360 
370 
380 
390 
400 
410 
420 

=O 
440 
450 
460 
470 
A480 
490 
300 
510 
520 
SEÖ 
540 
550 
560 
570 
580 
590 
als) 
61o 


FOR J=2 TO M 
IF A{I,JI>MX THEN MX=ACTI,D 
IF A(I,J)@ZMI THEN MI=A(I,J 
NEXT J 
MI<CID=MI 
MX(CI)=MX 
NEXT I 
REM „neun nnunnn nn. ERWARTUNGSWERTERITERIUM 
FOR I=1 TON 
S=Ö 
FOR J=1 TO M 
S=S5+A(TL,JI#F(J) 
NEXT J 
E(I)=S 
NEXT I 
E=0: K=0 
FRINT" Erwartungswertkriteriums:'" 
FRINT" Strategie Gewinnerwartung" 
FOR I=1 TON 


FRINT USING " ### H#HHHH "ST,ECD 
IF ECDI>E THEN E=sE(TD): K=I 

NEXT I 

FRINT " Optimale Strategie=";E 


REM „nur uununneennnnnnn a „ MINIMAX-ERITERIUM 
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620 
6:0 
640 
650 
[=Y=18) 
670 
[=1= 16) 
670 
700 
710 
7ZO 
720 
740 
750 
760 
770 
780 
7970 
Bo 
810 
zo 
830 
840 
850 
BU 
870 


FRINT STRINGE (39,45) 
E=MX (1): K=ö 
FOR I=2 TON 
IF MXCD=ZE THEN E=MX (I): K=I 
NEXT I 
FRINT" Minimax=";E 
FRINT" Optimale Strategie=";k 


REM „ouueeunnnnnnnnnn nn nn MAXIMAX-KRITERIUM 
FRINT STRINGE (39,45) 
E=MX (1) 
FOR I=2 TON 
IF MX(D>E THEN E=MX(D: K=I 

NEXT I 
FRINT" Maximax="sE 
FRINT" Optimale Strategie=";k 
REM „.uunnunnnnennnnn nn HURWITZERITERIUM 
READ A 
FRINT STRINGFE (79,45) 
FRINT" Hurwicz-kEriterium Optimismusindex=";A 
FRINT" Strategie Gewinnerwartung" 
E=0: K=0 
FOR I=1 TON 

ED) =A#MX (I) +(1-A)*MICI) 

FRINT USING " ### ##HH#H# "Ss TI,ECOD 


890 IF ECDD>E THEN E=sE(TD: K=sl 

890 NEXT I 

900 FRINT" Optimale Strategie=";E 

910 FRINT STRINGE (39,45) 

920 END 

a0: 

940. REM zum eeneeeer DATEN 
950 DATA 3,4 

9760 DATA 10000 ,5000, 3000 

970 DATA 5000 ,5000 , 5000 

980 DATA Z0000,5000,—-1000 

990 DATA 10000 ,23000 , 4000 

1000 DATA „EENREEEE, 0. INIIEREE, . IIEREDES 


1010 DATA „75 
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Entscheidung bei geg.kWahrscheinlichk. 


Erwartungswertkriterium: 
Strategie Gewinnerwartung 


1 BOHO 
2 5000 
= Booo 
4 3667 


Optimale Strategie= 


Minimax= 5000 

Optimale Strategie= 2 

Maximax= 20000 
Optimale Strategie= 3 
Hurwicz-kEriterium Optimismusindex= „75 
Strategie Gewinnerwartung 


1 250 

2 3000 

= 14750 

4 BES50O 
Optimale Strategie= I 
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28. LAGERHALTUNG OHNE FEHLMENGEN 


Ist der Bedarf eines Lagers bekannt und zeitlich konstant und kann es jeder- 
zeit ergänzt werden, so läßt sich eine optimale Lagerhaltung angeben. Da der 
Bedarf als bekannt vorausgesetzt wird, spricht man hier von einem determi- 
nistischen Lagerhaltungsmodell, im Gegensatz zu einem stochastischen Modell, 
bei dem der Bedarf zufälligen Schwankungen unterliegt. 


Ist T der optimale Bestellrhythmus und B der Bedarf je Zeiteinheit, so gilt 
für die optimale Bestellmenge QO 


Q = BT. 


Der Lagerbestand nimmt vom Stand Q gleichförmig ab und wird beim Stand 
Null erneut aufgefüllt: 


Bestand 


T 2T 


Sind H die Lagerhaltungskosten je Stück und Zeiteinheit, so stellt 
HOT/2 


die variablen Lagerhaltungskosten dar. Zusammen mit den Fixkosten K, erge- 
ben sich die gesamten Lagerkosten aus 


K + HOT/2. 
Bezieht man die Gesamtkosten auf die Zeiteinheit, so erhält man 
KB/Q + HO/2. 
Diese Funktion hat ein Minimum für die optimale Bestellmenge 


_ _/2KB 
a=-v7 
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Diese Formel heißt Wilsonsche Losgrößenformel oder Andlersche Lagerwurzel. 
Daraus berechnen sich der optimale Bestellrhythmus zu 


_./2K 
T= BH 
und die minimalen Lagerhaltungskosten zu 


M = Y 2KHB 


Zum folgenden Programm 


Nach Eingabe der Fixkosten, des Bedarfs und der Lagerkosten pro Stück und 
Zeiteinheit berechnet das Programm nach den angegebenen Formeln die opti- 
male Lagerhaltung. 


Beispiel 


Ein Lager benötigt wöchentlich 300 Stück einer Ware. Die Fixkosten einer 
Bestellung sind 1000 DM und die Lagerkosten 1,90 DM je Stück und Woche. 


Das Programm berechnet hier den optimalen Bestellrhythmus zu 1,87 Wochen 
und die optimale Bestellmenge zu 562 Stück. Die minimalen Kosten betragen 
damit 1067,71 DM. 


Literaturhinweis: [2], [4], [16] 
222777 NT 


“Kaufmann mit seinen Waren im Hauptbuch blätternd’’ 
Holzschnitt von Hans Weiditz, Augsburg 1539 
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133° 


100 
110 
120 
130 
140 
150 
160 
170 
180 
1970 
ZOO 
210 
ZRO 
ZEO 
240 
250 
=s0 
270 
280 
290 
300 
>10 
20 
AAO 


>40 


REM „un... n..  . LÄGERHÄALTUNG OHNE FEHLMENGEN 

CLS 

FRINT STRINGE (39,61) 

FRINT" Lagerhaltung ohne Fehlmengen" 

FRINT STRINGEFE (29,61) 

KEM ana en ea nn en EINGABE 
FRINT: INFUT" Fixkosten";E 

FRINT: INFUT" Bedarf je Zeiteinheit";RB 

FRINT: INFUT" Lagerkosten je Stck.u.Zeiteinh";H 
REM une nennnnnnnne nennen nenn» BERECHNUNGEN 
M=SOR (Z#+K#B*H) 

T=SOR (2#K/B/H) 

A=SOR (Z#E#BR/H) 

REM nes 00er uns ee nen nun nen nn „ AUSGABE 
FRINT:FRINT STRINGE (39,45) 
FRINT USING" Minimalkosten 


#HHHHHH.#H# DM'SM 


FRINT USING" Opt.Bestellrhythmus = ####.## Zeiteinh.";T 


FRINT USING" Opt.Bestellmenge #HHHH#H Stueck";Q 
FRINT" Servicegrad = 100%" 
FRINT STRINGE (39,45) 


END 


Fixkosten?” 1000 
Bedarf je Zeiteinheit”? 300 


Lagerkosten je Stck.u.Zeiteinh? 1.7 


Minimalkosten = 1067.71 DM 

Opt.Bestellrhythmus = 1.87 Zeiteinh. 

Opt.Eestellmenge = 562 Stueck 
Servicegrad = 100 % 
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29. LAGERHALTUNG MIT FEHLMENGEN 


Die Lagerhaltung ohne Fehlmengen (Programm 28) ist aufwendig, da stets die 
gesamte Nachfrage befriedigt werden soll. Läßt man vorübergehend auch 
Fehlmengen zu, erreicht man u.U. eine wesentliche Kostenreduzierung. 


Ist die maximale Bestellmenge S, so ändert sich der Warenbestand wie folgt 


Sind G die Fehlmengenkosten je Stück und Zeiteinheit, so sind die gesamt- 
ten Fehlmengenkosten 


G(Q-S) (T-t)/2 
wie man der Skizze entnimmt. Die Gesamtkosten addieren sich damit zu 
K + HS2/(2B) + G(BT-S) (T-S/B)/2 
Auf die Zeiteinheit bezogen, sind die Gesamtkosten 


K, BGT _ag , (GtH)S2 
T 2 2BT 


Mit Hilfe der Differentialrechnung läßt sich zeigen, daß diese Funktion für die 
optimale Bestellmenge 


ein Minimum hat. Entsprechend ergeben sich der optimale Bestellrhythmus 


135 


die minimalen Lagerkosten 


und der befriedigte Bedarf 


=. 2KB 
S R m 
Dabei wurde zur Abkürzung 
HtG , R 
G 
gesetzt. Das Verhältnis 
I 
Q R2 


nennt man den Servicegrad. 


Zum folgenden Programm 


Nach Eingabe der Fixkosten, Lagerkosten und Fehlmengenkosten berechnet 
das Programm nach den angegebenen Formeln die optimale Lagerhaltung. 


Beispiel 


Ein Lager benötigt wöchentlich 300 Stück einer Ware. Die Fixkosten einer 
Bestellung sind 1000 DM, die Lagerkosten 1,90 DM und die Fehlmengen- 


kosten 2 DM je Stück und Woche. 


Der optimale Bestellrhythmus ergibt sich dann zu 2,62 Wochen, die optimale 
Bestellmenge liegt bei 785 Stück. Die Minimalkosten betragen 764,60 DM 
und sind damit gegenüber dem Beispiel von Programm 30 deutlich reduziert. 
Dagegen kann nur 51 % des Bedarfs gedeckt werden. 


Literaturhinweis: [2], [4], [16] 
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2El 


REM . 


CLS 
FRINT 
FRINT 


REM . 


FRINT: 
FRINT: 
FRINT: 


FRINT 


REM . 


REM „ 


. „LÄGERHÄLTUNG MIT 


STRINGE (39,61) 
2 Lagerhaltung mit Fehlmengen" 
FRINT STRINGE (39,61) 


INFUT" 
INFUT" 
INFUT" 
: INFUT" 


Fixkosten";E 


FEHLMENGEN 


...EINGABE 


Bedarf ie Zeiteinheit";R 
Lagerkosten je Stck.u.Zeiteinh";H 
Fehlkasten je Stck.u.Zeiteinh";G 


Bourne nne .„.. . BERECHNUNGEN 
R=SUOR((H+G) /G) 

M=SUR (A#K#B#H) /R 
T=SOR C3#E/B/H) #R 
5=50R (A#E#B/H)/R 
A=SORCARxEHR/H) FR 


FRINT:FRINT STRINGS (39, 45) 


FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
END 


USING" 
USING" 
USING" 
USING" 
USING" 


Minimalkosten 


Opt.Bestellrhythmus 


Öpt.Bestellmenge 
Befried. Bedarf 
Servicegrad 


STRINGE (39,459) 


.„. . AUSGABE 


= #HHHHH 


= ###.## 
= #H#HH#H 
= #H#H### 
= ##H#.H## 


## DM";M 
Zeiteinh. 
Stueck";Q 
Stueck"35 
7", 100#57/0 


ST, 


Lagerhaltung mit Fehlmengen 


Fixkosten” 1000 

Bedarf je Zeiteinheit” 300 
L.agerkosten je Stck.u.Zeiteinh?” 1.97 
Fehlkosten se Stck.u.Zeiteinh?” 2 


Minimalkoasten == 764.60 DM 
Opt.Bestellrhythmus = 2.62 Zeiteinh. 
Opt.Bestellmenge 785  Stueck 
Befried. Bedarf = 402 Stueck 
Servicegrad = 51.28 % 


ü 
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30. OPTIMALE LAGERHALTUNG 


Während die vorangegangenen Lagerhaltungs-Programme von einem gleich- 
förmigen Bedarf ausgingen, läßt das folgende Programm wechselnden Be- 
darf zu. Die Gesamtkosten setzen sich zusammen aus Bestell- und Lagerhal- 
tungskosten. Sind die Bestellkosten niedriger als die Lagerhaltungskosten, so 
wird man möglichst wenig Ware auf Lager halten und bei Bedarf neu bestel- 
len. 


Sind die Bestellkosten höher als die Lagerkosten, so wird man möglichst viel 
Ware auf Lager halten, damit wenig Ware bestellt werden muß. 


Vorausgesetzt wird im weiteren, daß keine Fehlmengen zugelassen werden 
und Lieferungen momentan erfolgen. 


Da jede Entscheidung über Lager- oder Bestellmenge Konsequenzen für die 
folgenden Monate hat, ist hier ein mehrstufiger Prozeß zu durchlaufen, wie er 
in der Dynamischen Programmierung häufig vorkommt. Im Gegensatz zum 
Lösungsverfahren zur optimalen Zuordnung (Programm 35) werden hier nicht 
alle Lösungsmöglichkeiten erzeugt und dann die optimale ausgewählt. Alter- 
nativen die nicht zu einer verbesserten Lösung führen können, werden von 
vorn herein ausgeschlossen. 
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Zum folgenden Programm: 


Nach einlesen der Gesamt-Bestellkosten, der Lagerkosten je Stück und Zei- 
teinheit und der Bedarfsmengen in Form von DATA-Werten berechnet das 
Programm mit Hilfe der dynamischen Programmierung die optimale Bestell- 
bzw. Lagermenge. Dabei wird angenommen, daß die Lagermenge am Anfang 
und am Ende Null sind. Das Ergebnis wird in tabellarischer Form ausge- 
druckt. 


Beispiel: 


Der Bedarf einer Firma an einem bestimmten Artikel sei während 12 Monaten 
wie folgt gegeben: 


80, 90, 120, 160, 100, 90, 120, 140, 60, 100, 150 und 200 Stück. Die Kosten je 
Bestellung betragen 50 DM, die Lagerhaltung 0.40 DM je Stück und Monat. 


Da hier bei einem Bedarf von mehr als 125 Stück die Lagerkosten die Bestell- 
kosten übertreffen, wird bei 9 Monaten jeweils neu bestellt. Bei 3 Monaten 
wird der Bedarf aus der Lagerhaltung entnommen (vgl. Programmausdruck). 
Die minimalen Kosten betragen hier 546 DM. Diese Summe setzt sich zuam- 
men aus 9 Bestellkosten zu je 50 DM und den Lagerhaltungskosten für insge- 
samt 240 Stück Ware in den Monaten 1, 5 und 8. 
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rt 


100 
116 
120 
120 
140 
150 
160 
170 
180 
190 
ZOO 
210 
220 
230 
246 


250 


60 
270 
290 
290 
00 
310 
AO 
AERO 
340 


350 


REM Optimale Lagerhaltung 


ELS 

FRINT STRINGE (30,61) 

FRINT" Optimale Lagerhaltung" 

FRINT STRINGE (30,61) 

READ N : REM Zahl der Zeiteinheiten 
DIM E(N,N) „M{N) ,„ED(N) „ES(N) 


‚REM Einlesen 


READ EBK : REM Bestellkosten 
READ LE =: REM Lagerkosten je Stck u.Zeiteinheit 
FOR I=1 TON 
READ BD(I) : REM Bedarfsmengen 
NEXT I 
REM Startwerte 
K(1,D)=EBk:M(l)el 
REM Optimierung 
FÜR J=2 TON 
E(J,JD)=H(M(J-1) ,J-1)+BE 
FOR I=M(J-1) TO J-1 
ECOI,ÄJ)=EKCI,J-I)+LE*EBD(JI#(J-D) 
NEXT I 


rt 


360 
370 
>80 
390 
400 
410 
420 
4.0 
440 
450 
460 
470 
480 
490 
500 
510 
520 
SEO 
540 
350 
560 
5370 
380 
3970 
HO0 
sid 


M(J)=M(J-1) 
FOR I=M(J-1D 


TO J-i 


IF K(M(D,J) > KCI+1,J) 


NEXT I 
NEXT J 


REM Bestellmengen 


Ni=N 

NZ=M(N1) :S=0 

FOR I=N2 TO Ni 
S=S5+ED (I) 

NEXT I 

BS(N2)I=S 


IF M(Ni)=1 THEN 540 


Ni=N2-1:60T0 440 


REM Ausgabe 


FRINT STRING#E (39,45) 
FRINT:FRINT"Feriode Bedarf Bestellmenge Lagerbest'" 
FRINT STRING# (39,45) 


LG=0 
FOR I=1 TON 


IF LG=0 THEN LG=ES (I) 


LG=LG-ED(T) 
PRINT USING 
NEXT I 


#H## #HHHHHH 


THEN M(J)=I+i 


HHHHHHH 


#H#HH#H##": I ,BD(ODD ,BS(TOD) ,LG 


ert 


620 FRINT STRINGE (39,45) 

630 FRINT USING "Minimale Kasten =#H###H#H# DM"; (MEN ,N) 
640 FRINT STRINGE (39,45) 

650 END 

fat Bu 

70 DATA 12 

Heu DATA SO 

GIO DATA „4 

700 DATA 80,90,120,160,100,70,120,140,&0,1060,150, 200 


Feriode Bedarf Bestellmenge Lagerbest 


1 g0 170 70 
2 90 [9) [#) 
= 120 120 Ö 
4 140 160 1) 
ka) 100 190 90 
& 90 [®] [@] 
7 120 120 {0} 
8 140 z00 {18 
97 1-18) o {8} 
10 100 100 [8) 
11 150 150 (8) 
12 200 ZOC [#) 
Minimale Kosten = 546 DM 
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31. WARTESCHLANGE BEI EINMANN-BEDIENUNG 


Die Warteschlangen- bzw. Bedienungstheorie beschäftigt sich mit der Stati- 
stik der Warteschlangen bei Telefon-Vermittlungen, Verkehrsbetrieben, Ge- 
schäften usw. 


Die Zahl der in einem bestimmten Zeitintervall erscheinenden Kunden wird 
als poissonverteilt, die mittlere Bedienungsdauer als exponentialverteilt an- 
gesehen. 


Ist A die mittlere Ankunftsrate von Kunden je Zeiteinheit, a die mittlere Bedie- 
nungsdauer je Zeiteinheit, so ist die Wahrscheinlichkeit, daß ein Kunde nicht 
warten muß 


p=1—Alu 
Die mittlere Wartezeit W beträgt dann 
W = Aluw—A)) 


Die Durchschnitts-Länge der Warteschlange ist gegeben durch 
L = (Alu) *2/ (1—Alu) 


Diese Formeln gelten unter der Voraussetzung A < u. Gilt dies nicht, so kom- 
men stets mehr Kunden als abgefertigt werden können; die Warteschlange 
wird somit beliebig groß. 


Zum folgenden Programm: 


Nach Eingabe der mittleren Kundenankunftsrate und der mittleren Bedie- 
nungsdauer berechnet das Programm die mittlere Wartezeit und Verweilzeit 
eines Kunden, die Wahrscheinlichkeit sofort bedient zu werden und die mitt- 
lere Länge der Warteschlange. 


Beispiel: 


In einem Geschäft kommen durchschnittlich 5 Kunden pro Stunde. 6 Kunden 
können durchschnittlich je Stunde abgefertigt werden. 


Ein Kunde wird dann mit der Wahrscheinlichkeit 
1—-5/6 = 16.67% sofort bedient. 

Die mittlere Wartezeit beträgt 

w = 5/(6*(6—5)) = 0.83 Std. 

Da er ein 1/6 Std. lang bedient wird, verweilt er somit 
0.83 Std. + 0.17 Std. = 1 Std. im Laden. 

Es warten durchschnittlich 

(5/6) * 2/(1—5/6):= 4.2 Kunden auf die Bedienung 
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9r1 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
ZOO 
10 
ZERO 
RO 
240 
te 8] 
60 
270 
RC 
2970 
AO 
A100 
AO 


AO 


Be 


SO 


RE ss „un... . . Warteschlange bei Einmannbedienung 


CLS 

FRINT STRINGE (29,61) 

FRINT" Warteschlange bei Einmann-Bedienung" 

FRINT STRINGE (39,61): FRINT 

REM zuuunennunnnnnan nn n nn n a „Eingabe 

INFUT " Mittl.Eundenankunftsrate je Zeiteinh. ";LAMEDA 
INFUT " Mittl.Abfertigungsrate je Zeiteinh. ";MUE 

IF LAMEDAX{MUE THEN 260 ELSE Z10 

FRINT:FRINT CHRE (7); "Warteschlange wird beliebig gross," 
FRINT"da stets mehr KEunden kommen als" 

FRINT"abgefertigt werden koennen"sEND 

REM oon onen een ner nn anna nn - „ Berechnung 
H=LAMEDA/ (MUE-LAMEDA) 

F=1-LAMBDA/MUE 

L.=L_AMRDA”2/ (MUE* (MUE-LAMEDA)I)I 
W=LAMEBDA/ (MUE* (MUE-LAMEBDA) ) 

B=1/MUE 

A=LAMEBDA/MUE 


REM ers ae ee ae nee een ‚Ausgabe 
FRINT:FRINT STRINGE (39,45) 


FRINT USING "Wahrscheinl.der Sofortbedienung ##.## 7", F#100 


rl 


=75 
380 
5970 
400 
410 
420 
430 


ERINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
END 


USING 
USING 


USING 
USING 
USING 
USING 


Mittlere 
Mittlere 


Mittlere 
Mittlere 


KBundenzahl= HH. ##':H 
Bedienungsdauer= ##.##"IR 


Wartezreit= ae 2 2 
Verweilzeit= #H.##": Br 


Mittl.Laenge d.Warteschlanges= ###.#";L 
Auslastung der Bedienunge ###.# %":A#100 
STRINGE (397,45) 


Mittl.Kundenankunftsrate je Zeiteinh.”? 
Mittl.Abfertiqungsrate je Zeiteinh.”? & 


Wahrscheinl.der Soforthedienung 16.67 % 
Mittlere Kundenzahl= 3.00 
Mittlere Bedienungsdauer= 0.17 
Mittlere Wartereit= O8 
Mittlere Verweilxzeit- 1.00 
Mitti.l.nge d.Warteschlange= 4.2 


Auslastung der Bedienung® 87.2% 
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32. WARTESCHLANGE BEI MEHRFACHBEDIENUNG 


Ist die Länge der Warteschlange sehr groß, so wird man die Zahl der Bedie- 
nungseinheiten erhöhen. Die folgende Theorie gilt unter der Bedingung, daß 
alle Kunden sich in eine Warteschlange einreihen und der jeweils erste zuerst 
bedient wird. 


Ist d die Anzahl der Bedienungen, so können pro Zeiteinheit d*u Kunden ab- 
gefertigt werden. Es muß A < u gelten, da sonst die Warteschlange beliebig 
groß wird. 


Die Wahrscheinlichkeit p, daß eine Kunde sofort bedient wird, ist 


p = 1— (Alu) * d*s/((d-1) !*(d-A/u)) 

dabei ist 

s = 1/(Alu) + (Alu) * 1/1! + (Alu) * 221 +... 

+ (Alu) * (d—1)Kd—1)! + (d— Alu) * d(d—1)!*(d—A/)) 


und n! dieFakultätsfunktion, das Produkt alle Zahlen von 1 bis.n. 


Die mittlere Wartezeit W ist gegeben durch 

w = (1—p)ld*u—A) 

Die mittlere Länge der Warteschlange beträgt 

L = (1—p)*(Alu)ld—Alu) 

Die Anzahl der sich im Laden aufhaltenden Kunden ist 
K = A*W +1lu) 


Zum folgenden Programm: 


Nach Eingabe der Anzahl der Bedienungseinheiten, der mittl. Anzahl von 
Kunden und der mittl. Bedienungsdauer berechnet das Programm die Wahr- 
scheinlichkeit, daß ein Kunde sofort bedient wird, die Bedienungsdauer und 
die Wartezeit. Die Summe aus Bedienungs- und Wartezeit ergibt wieer die 
Verweilzeit des Kunden im Laden. Ferner wird die Anzahl der bedienten Kun- 
den und die mittlere Länge der Warteschlange ermittelt. 


Beispiel: 

In einem Geschäft mit 3 Verkäuferinnen erscheinen durchschnittlich 12 Kun- 
den pro Std. Sechs Kunden werden pro Std. bedient. Das Programm liefert 
folgende Daten: 


Mit 55.56% Wahrscheinlichkeit wird ein Kunde sofort bedient. Die Bedie- 
nungsdauer beträgt 0.17 Std., die mittl. Wartezeit 0.07 Std. Der Kunde ver- 
weilt somit 0.24 Std. im Laden. Es sind durchschnittlich 2.89 Kunden im La- 
den, davon stehen 0.89 in der Warteschlange. 
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0S1 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
ZOO 
210 
20 
220 
240 
250 
260 
270 
280 
290 
A000 
Z10 
FO 
SEO 
>40 
350 


HEM „runs nes een. Warteschlange bei Mehrfachbedienung 
CLS 

FRINT STRINGEF (29,61) 

FRINT" Warteschlange bei Mehrfach-Bedienung" 

FRINT STRINGF (39,681) :FRINT 


REM „nu: ,000e 000000 un ensen Eingabe 
INFUT " Wieviele Bedienungseinheiten ";D 
INFUT " Mittl.Kundenankunftsrate je Zeiteinh. ";LAMEDA 


INFUT " Mittl.Abfertigungsrate je Zeiteinh.";MUE 

IF LAMEBDAZMUE*D THEN 270 ELSE Z20 

FRINT:FRINT CHR& (7); "Warteschlange wird beliebig gross," 
FRINT"da stets mehr Kunden kommen als" 

FRINT"abgefertigt werden koennen":END 


REM „uuun. Be ae nnunnnenennnnennnn „ Berechnung 
S5=1:H=1:FAH=1 
FOR I=1 TO D-1 
H=H*LAMEBDA/MUE: FAE=FAH#I 
S=S+H/FAH 
NEXT I 
S=1/ (S+H*LAMEDA/MUE/FAH/ CD-LAMEDA/MUE) ) 
F=1- (LAMRBDA/MUE) "D*S/FAH/ (D-LAMEDA/MUE) 
W=(1-F) / (D*MUE-LAMEDA) 
L=(1-F)* (LAMBDA/MUE)I / CD-LAMEDA/MUE) 


ISt 


KlaMBoAas Wr 1 /MUE) 
R=1/MUE 


RERI- 2 ar ie a a Ausgabe 


FRINT:FRINT 
FRINT USING 
FRINT USING 
FRINT USING 
FRINT USING 
FRINT USING 
FRINT USING 


FRINT 
END 


STRINGE (39,45) 
"Wahrscheinl.der Safartbedienung ##.## %":100*F 
" Mittlere RBedienungsdauer= ##.##": RB 


" Mittlere Wartexreit= HH HH" 

" Mittlere Verweilzeit= HH. 46H", B+W 

" Mittlere Eundenzahl = HHCHHUCE 

" Mittl.Laenge d.Warteschlange= ###.##":L 


STRINGE (39,45) 


ach-Bedienung 


2) 


mm 
Do 


Wieviele Bedienungseinheiten 
Mittl.Kundenankunftsrate je Zeiteinh.” 
Mittl.Abfertigungsrate je Zeiteinh.” 6 


Wahrscheinl.der Sofortbedienung 53.506 % 
Mittlere Bedienungsdauer= 0.17 
Mittlere Wartereit= 64.07 
Mittlere Verweilzeit- o.24 
Mittlere Kundenzahl = 2.89 
Mittl.Laenge d.Warteschlanges 2.897 
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33. LINEARE OPTIMIERUNG 


Viele wirtschaftliche Probleme wie Produktionsplanung, optimales Mischen 
und Transportprobleme können mit Hilfe der linearen Optimierung gelöst 
werden. 

Unter der linearen Optimierung versteht man die Lösung eines Systems von 
linearen Ungleichungen so, daß eine vorgegebene lineare Funktion (Zielfunk- 
tion genannt) optimal wird. 


Das grundlegende Lösungsverfahren der linearen Optimierung, Simplex- 
Algorithmus genannt, wurde 1947/1948 von dem Mathematiker G.B. Dantzig 
im Auftrag der amerikanischen Luftwaffe entwickelt. Im Rahmen dieses 
Buches ist es nicht möglich, auf die mathematischen Grundlagen des Simplex- 
Verfahrens einzugehen; es wird auf die zahlreiche Literatur verwiesen: [2], 
[12], [14], [16]. 


Eine Fabrik produziert 2 Werkstücke Yı bzw. Y2, die bei der Fertigung die 
Maschinen A, B, C durchlaufen müssen. Die Produktionskapazitäten werden 
durch folgende Tabelle gegeben: 


Bearbeitungszeit Maschinenkapazität 
Stunden/Stück Stunden/Woche 


Werden von den beiden Werkstücken x1 bzw. x2 Stück gefertigt, so benötigt 
die Maschine A dafür 


2x1 + x2 Stunden. 
Da A höchstens 200 Stunden laufen kann, gilt 
2x1 + x2 S 200. 
Entsprechend gilt für Maschine B 
xı + x2 S120 
und für Maschine C 
xı + 3x2 S240. 
Betragen die Gewinne 2 DM bzw. 3 DM pro Stück, so soll die Gewinnfunk- 
tion (= Zielfunktion) 
G = 2x1 + 3x2 


maximal werden. Da negative Stückzahlen keinen Sinn haben, muß man noch 
— wie in der linearen Optimierung üblich — fordern: 


x120 und x2>0 
153 


Die optimale Lösung des Problems ist 
xı = 60 undx2 = 60. 


Das Unternehmen muß also wöchentlich 60 Stück vom Werkstück 1 bzw. 2 
produzieren; der optimale Gewinn beträgt dann 300 DM. 


ein solches System von linearen Ungleichungen muß jedoch nicht immer ei- 
ne eindeutige Lösung haben. Es kann auch gar keine Lösung geben oder die 
Lösung ist nicht eindeutig oder sogar unbeschränkt. 


Zum folgenden Programm 


Das folgende Programm löst beliebige Optimierungsprobleme, deren Neben- 
bedingungen lineare Ungleichungen sind. 


Folgende DATA-Werte werden im Programm der Reihe nach eingelesen: 


MAX bzw. MIN, je nachdem ob die Zielfunktion maximal oder mini- 
mal werden soll 

die Zahl der Variablen 

die Zahl der Nebenbedingungen 

die Matrix der Nebenbedingungen 

die rechte Seite der Nebenbedingungen 

die Koeffizienten der Zielfunktion 


Dabei ist vorausgesetzt, daß bei einem MAX-Problem die Ungleichungen in 
der Form »=« vorliegen bzw. bei einem MIN-Problem in der Form »2«. 
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Beispiel aus [16] 
Eine Firma verarbeitet einen Rohstoff zu drei Waren Wı1, Wa und W3. Je 
Stück benötigt man davon 60 kg für Wi, 100 kg für W2 und 76 kg für W3. 
An Arbeitszeit benötigt man 5 Std. für Wı, 10 Std. für W2 und 6 Std. für W3. 
Im betrachteten Zeitraum stehen 1600 Arbeitsstunden und 20.000 kg Roh- 
stoff zur Verfügung. Aus technischen Gründen muß von W1 mindestens dop- 
pelt so viel wie von W2 produziert werden. Der Gewinn je Stück beträgt 
10 DM an Wı, 50 DM an W> und 23 DM an W3. Welche Stückzahlen müssen 
produziert werden, damit der Gewinn maximal wird? 
Für den Rohstoff ergibt sich die Ungleichung 
60x1 + 100x2 + 76x3 < 20.000 

für die Arbeitsstunden 

5x1 + 10x2 + 6x3 < 1600. 
Außerdem muß gelten x1 2 2x2 oder 

—x1 + 2x2 + 0:.x3 SO. 
Die Zielfunktion 
10x] + 50x2 + 23x3 

soll maximal werden. 


Nach Eingabe der Daten gemäß Programm ergibt sich die optimale Lösung 
xı = 16, x2=8, x3 = 240 Stück. 
Der maximale Gewinn beträgt 6080 DM. 


155 


100 
110 
120 
1:0 
140 
150 
155 
Ic 
170 
120 


951 


290 


BAHN] 


REM ran re ar ee lineare Optimierung 
CS 

FRINT STRINGE UNS, 61) 

FRINT" ##* Simplex-Verfahren Er 


FRINT STRINGE (35,61) 
REM Einlesen der DATA-Werte 
READ FF: REM Mimimum- oder Maximumsproblen 


IF FEXH"MIN" AND FEX>"MAX" THEN FRINT"MIN oder MAX eingeben":END 


READ N : REM Zahl der Variablen 

READ Ms REM Zahl der Nebenbedingqungen 
Ni=N+M#+1 

IF FF="MIN" THEN Ml=N+1:60T0 240 

Mi=H+i1 

BIM EViML),AcCHL,NID) 

FRINTSFRINT" Matrix der Nebenbedingungen" 
FOR I=1 TO M 

FOR J=1 TON 


IF FE="MIN" THEN READ A(J,DI:SFRINT A(J,D3:60T0 310 


READ ACT,ÄDEFRINT ACI„J; 
MEXT JaFRINT 
NEXT I:FRINT 


FRINT" Rechte Seite" 
FOR I=1 TO M 


Ist 


E60 
370 
BO 
390 
A400 
410 
420 

we) 
440 
450 
40 
470 
40 
490 
500 
510 
SEO 
SAC 
540 
550 
560 
570 
580 
5970 
KHÜOO 
&1o 


IF F&="MIN" THEN READ AlM1L,DD:FRINT A(M1,1);5:60T0 380 
READ ACI,NLI:FRINT ACI,„Nld; 

NEXT IsFRINT:FRINT 

FRINT" Zielfunktion" 

FOR J=1 TON 

IF Ft="MIN" THEN READ A(J,„NI)SFRINT AlJ,N1);5:G0TO 440 
READ A(M1,J):FRINT AtM1,J9; 

NEXT J=FRINT:FRINT 

IF F£="MIN" THEN HI=M:G0TO 4706 

HI=N 

FOR J=1 TO HI 

A(MI,J)=-ACML,JD) 

NEXT J 

A<MI,NI)=O 


GOSUR BAU:REM Aufruf Simplex-Froredur 
REM Ausgabe 

FRINT STRINGE (39,45) 

FRINT "Optimale Loesung des "; 


IF F£="MIN" THEN FRINT"Standard-Minimum-Froblems":60T0 590 


FRINT"Standard-Maximum-Froplems" 
FRINT "nach"; IT; "Schritten:" 
FRINT STRINGE (39,45 

FOR J=1 TON 


891 


820 
SAÖ 
640 
650 
H&0 
670 
680 
670 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
go0 
g1lo 
BRO 
g30 
840 
330 
RAU 
870 


IF F£="MIN" 
V=ÜÖ 

FOR I=1 TO M 
IF BV(I)=J THEN V=1:1I=M 
NEXT I 

IF v=0 THEN %=0:60T0 700 
XÄ=A(V,N1):GOTO 700 
“=A(M1,M+J) 


THEN 690 


FRINT" x ("595 ="5X 
NEXT J 
FRINT STRING# (397,45) 


FRINT "OÖptimaler Wert der 
FRINT STRINGE (39,45) 

END 
DATA 
DATA 3 

DATA = 

DATA &0,100,76 
DATA 5,10,6 
DATA -1,2,0 
DATA Z2000C 


REM 
REM Basisvariable 


Zielfunktion=";Z 


een ‚Frozedur Simplexverfahren 


651 


880 
gF7o 
OO 
910 
GRO 
YO 
940 
750 
90 
770 
9gc, 
Yon 
1000 


1550 
10680 
1670 
1080 
1090 
1100 
1110 
1120 
1130 


IF FF="MIN" THEN 930 
FOR I=1 TO M 

EV(CDD=N+I 
NEXT I 
REM Schlupfvariablen 

IF F£="MIN" THEN Hi=N:HZ=M:GOTO 966 
H1=M: HZ=N 
FOR I=1 TO Mi 
FOR J=1 TO Hi 
AT,H2+rJ)=0 

IF I=J THEN AtI,HZ+W)=l 

NEXT J 

NEXT I 

REM Fivotspalte 

IT=0 

IT=IT+1 

IF IT>(M#N#5) THEN 1490 
MI=AtM1,1):FS=el 

FOR J=2 TO Ni-1 

IF AtM1,J)SMI THEN MI=A(M1,J):FS=J 
NEXT J 

IF MI:-.O0001 THEN Z=A(MI1,NI) RETURN 


REM Fivotzeile 


1140 MI=1E+20:FZ=Ö0 

1150 FOR I=1 TO Mi-i1 

1156 IF A(CI„FS)i=Ö0 THEN 1190 
1170 H=A(1L,„NLIZ/ACL,FS) 

1180 IF HMI THEN MI=H:FZ=I 
1190 NEXT I 

1200 IF FZ=Ö0 THEN 1430 

1210 ; 

1220 REM RBasistausch 

1230 IF FE="MAX" THEN BV(FZI=FS 
1240 HI=A(FZ,FS) 

1250 FOR J=1 TO Ni 

1260 A(FZ,D=A(FZ,J)/HI 

1270 NEXT J 

1280 IF FZ=1 THEN 1350 

1290 FOR I=1 TO FZ-1 

1300 HI=A(I,FS) 

1310 FOR J=1 TO Ni 

1320 AUT, D=ACL,D-HIRA(FZ,J) 
1330 NEXT J 

1240 NEXT I 

1350 FOR I=FZ+1 TO Mi 

1360 HI=A(I,„FS) 

1370 FOR J=1 TO Ni 

1380 ACT, DD) =ACT,JI-HI#ACFZ,J) 
1390 NEXT J 
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H91 


1400 
1410 
1420 
LO 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 


NEXT I 
GOTO 1050 


REM Unbeschraenkte Loesung 

IF F#="MIN" THEN 1460 

FRINT"Loesung ist unbeschraenkt"=END 
FRINT"Es existiert keine Loesung" 
END 

REM Entartete l.oesung 
FRINT"Entartete Loesung" 

END:REM Frozedurende 


“+ Simplex-Verfahren ER 


Matrix der Nebenbedingungen 
a0 100 76 
> 10.6 


-1. 2.0 


Rechte Seite 


FOOOO 1,00 8) 
Zielfunktion 
10 5023 


Optimale DRS des Standard-Maximum-Froblem: 
nach 4 Schritten: 

“ti )I)= 16 

u er Eee: 

ea de BIO 


Optimaler Wert der Zielfunktion= süßl 
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34. RENTABILITATSGRENZE 


Während beim vorhergehenden Programm die Kosten- und Umsatzfunktion 
zur Ermittlung des optimalen Gewinns notwendig waren, kann bei linearen 
Produktionskosten die Rentabilitätsgrenze an Hand der Stückkosten berech- 
net werden. 


Zum folgenden Programm 


Je nach Wahl der Bezugsbasis, wird 1 für die Produktionskapazität oder 2 für 
die Umsatzerwartung eingegeben, 

Nach Eingabe der Fixkosten, der Stückkosten, des Stückpreises und der ge- 
wünschten Bezugsbasis, wird die Rentabilitätsgrenze der Produktion berech- 
net. Zusätzlich kann noch der Gewinn in Abhängigkeit vom Absatz tabella- 
risch ausgedruckt werden, falls die Produktionskapazität als Bezugsbasis ge- 
wählt wurde. 


Beispiel 


Bei den Fixkosten 1700 DM, den Stückkosten von 3,60 DM und dem Stück- 
preis von 5 DM, wird die Rentabilitätsgrenze bei einer Produktion von 1214 
Stück erreicht. Diese Stückzahl entspricht bei einer Produktionskapazität von 
2000 Stück einem Anteil von 60,71 %. Der tabellarische Ausdruck des jeweili- 
gen Gewinns kann dem Programmausdruck entnommen werden. 


Literaturhinweis: [5] 
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r91 


100 
110 
120 
130 
140 
150 
140 
170 
180 
1970 
lals) 
210 
ZERO 


0 


240 
a5o 
260 
270 
280 
29 
ZOO 
Z10 
BRO 


AERO 


34.0) 


Ri=ie) 


REM en nenn RENTARILITAET 
ELS 
FRINT STRINGE (30,61) 


FRINT" Rentabilitaetsgrenze" 
FRINT STRINGE C3O,61) 


REM: a er a re een ae ea 
FRINT:FRINT" Welche Groesse soll als Bez 


FRINT" benutzt werden?" 

FRINT CHRE (150), STRINGE (28,154) 5; CHRE& (156 
FRINT CHRE& (149) 3, SFACEE (ZB) ; CHREF (149) 
FRINT CHRE(1497)3;," Froduktionskapazitaet 
FRINT CHRE (149), SFACEE (28) ; CHRE (149) 
FRINT CHRE(149) 5," Umsatzrerwartung 
FRINT CHRE (149); SFACEE (28) ; CHRE (149) 
FRINT CHRE (147) 3; STRINGE (28,154) ; CHRE& (153 
INFUT W 

IF W£>1 AND WERE THEN FRINT CHRE(7I:GOTO 
FRINT: INFUT" Festkosten in DM";F 

FRINT: INFUT" Stueckkosten in DM":E 
FRINT: INFUT" Stueckpreis in DM'";sF 

ON W GOTO 360,500 


SGRENZE 


EINGABE 
ugsbasis!" 


) 

"SCHRE (246) 5" 
"SCHRE (246) 5" 
)=FRINT 


270 


1 


ur) 
m 


";CHR# (149 


";CHRE (149 


(Sr’Or)Z9NI4ULS LNIMJTLNINS 

A1Aagy LH tteeeeeee en nennen nun nn ern LM 

ana 

(SPSHE)FSNIMLS LNIMI 

4#3-4-4#35 hd #HCHHHRHH VUIMEST „ INISN LNIHd 
J4#31.432en35 #4###4#4# ZYesWn „ SONISN LNIMd 

Sl YNDENIG HEHHHHH = SzZus4bsjeerytTTtTgejusyg „ SNISN LNIMI 
(Sp Or)ZONIYMLS LNIMJTLNIMI 

(4-4) /J=8 

3!.4D2en45 ur zyeswn 4J8383-emM47 „LMINIFLNIMA 

SISYA SIG INNMLYMYMM3ZLYSUN "7 NM 

Ana 

oO1F ANSOI NIHL „Cu=stT'T'EU)EAIN MO uln =(TIT'EWEIIN AI 
Yu (N/L) Y4DsLanm4B alIlageL „LMINITELNIMI 

(St Or)FONIMLS LNIMI 

4#D- 4-40). Wa HH LUTMaOD „ SNISN LNIM4 

JE A HE HEHE ZIeSUn „ SMISN LNI4d 

0015}. 22e}Tzredey4suory4npoAg A8P % #’#HH# = u SNISM LNIMd 
755 ,4DEN3G HHH4#44# = Szussbsjsey}TTtgeljusy „ SNISM LNIMI 
(St SEI) ESNIMLS LNIMJTLNINI 

aN3®ui MIIH34. CZ) EMHD LNIMd NIHL T£S AI 

(D# (4-4) ) /J=5 

73,43D2an3g ur J8e34TzedeySsuoTt34NnpoAg4 „LNINTFLNI44 

SISYA SU LIYLIZYUAYHSNOILANGOMI" "tt IM 


oT? 
[aTalrı 
065 
085 
OS 
O5 
035 
O5 
OS 
8 Fo 
015 
[any 
ÜO6tr 
or 
IFA 
ogFr 
Hat 
Ott 
our 
or 
olr 
ooP 
Ob 
OBE 
OLE 
OPE 
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99, 


S2Ö 
s:0 
640 
650 
ac 
670 
[== 18) 
670 
700 
710 
7EO 


FRINT" Stueck Umsatz 
FRINT STRINGE (39,45) 
C1i=INT (C/10) 
FOR X=C1 TO C STEF Ci 

R=X#F 

T=F+X*#H 

I=R-T 

FRINT USING " #### 
NEXT X 
FRINT STRINGE (39,45) 
RETURN 


Hosten 


HFHHHHH.## 


Gewinn!" 


HHHHHH. HH 


HHHHHH. HH 


"3X,R,T,I 


Welche Groesse soll als Berugsbasis 
benutzt werden” 


Froduktionskapazitaet v 1 


BJ 


Umsatzerwartung v 


Su! 
Festkosten in DM? 1700 


Stueckkosten in DM? 3.60 


[4 


Stueckpreis in DM? 5 


Froduktionskapazitaet in Stueck? 2000 


Rentabilitaetsgrenze = 1214 Stueck 
= 60.7 % der Froduktionskapazitaet 


Umsatz 10000.0Ö0 DM 
Gewinn 1100.00 DM 


Tabelle erwuenscht (J/N)T j 


Umsatz Hosten Gewinn 
ZOO 1000.00 2470.00 —- 1470.00 
400 ZOO, C 3140.00 -1140.00 
HOO FO00.C 3B60.00 -BH0. 00 
BOH AO0O0.00 4580.00 580.00 
1000 S000.00 SEOO. 00 - 300.00 
ZOO HOOO. OO HOFO.OO - 20,00 
7000.00 6740.00 260.00 

Booo,c 7460.00 540.00 
6) FO00.00 8180.00 BrO.00 
ZOO 10000. 00 BIO0. 00 1100.00 
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35. OPTIMALE ZUORDNUNG 


Sollen z. B. 6 Vertreter in 6 Städte fahren oder 6 Bagger auf 6 verschiedene 
Baustellen geschafft werden, so sucht man eine Zuordnung 


Vertreter <--> Stadt 
Bagger <--> Baustelle 


so, daß die Summe der zurückgelegten Strecken oder Kosten ein Minimum 
wird. 


Unterwirft man mehrere Arbeiter einem Test, wer an welcher Maschine wel- 
che Leistung erbringt, so wird man hier eine Zuordnung 


Arbeiter <--> Maschine 
so suchen, daß die Summe der erbrachten Leistungen maximal wird. 


Sind die Entfernungen oder Kosten durch eine quadratische Matrix gegeben, 
so bedeutet die Zuordnung anschaulich, daß ein Element von jeder Zeile und 
Spalte der Matrix ausgesucht werden muß, so daß die Summe optimal ist. Die 
Menge aller Zuordnungen geht durch Permutationen in sich über. Eine nahe- 
liegende Lösung ist nun, alle möglichen Permutationen der zuzuordnenden 
Objekte zu erzeugen und diejenige auszuwählen, deren Kosten bzw. Bewer- 
tung optimal ist. Ein anderes Verfahren ist die Ungarische Methode (siehe 


(8). 


Zum folgenden Programm: 


Die Kostenmatrix und ihre Ordnung werden in Form von DATA-Werten einge- 
lesen. Soll die Zuordnung maximal sein, so ist MAX, andernfalls MIN einzuge- 
ben. 
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Beispiel: 


6 Bagger sollen von ihren Standorten an 6 verschiedene Baustellen gebracht 
werden. Die Entfernungen der Baustellen von den Standorten sind durch die 
Entfernungsmatrix gegeben: 


Baustelle nl 2 3 4 5 6 
Standort 1 60 35 28 53 29 26 
Standort 2 81 43 37 23 36 45 
Standort 3 42 42 33 47 43 51 
Standort 4 29 70 42 53 48 37 
Standort 5 81 69 40 66 69 60 
Standort 6 10 21 32 31 24 77 


Gesucht ist die minimale Summe der Entfernungen um jeden Bagger zu einer 
der Baustellen zu bringen. 


Das Programm liefert die optimale Zuordnung 


1<->5 
2<->4 


d.h. die Bagger 1 bis 6 müssen zu den Baustellen 5, 4, 2,6, 3 und 1 gebracht 
werden. Die minimale Entfernungssumme ist 181. 
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100 REM Optimale Zuordnung 


120 CLS 
130 FRINT STRINGE (28,61) 


140 FRINT" Zuordnungsproblem" 
150 FRINT STRINGE (28,61) 
160 ; 


170 READ N : REM Anzahl der Zuordnungen 
180 DIM A(N,N),„Z(N) ,„X(1,N) ,„OFT(D) 

190: 

200 REM Einlesen 

210 FRINT:FRINT"Gegebene Bewertungsmatrix:" 
220 FOR I=1 TON 


Pe) FOR J=1 TON 

240 READ AI,D 

E50 FRINT USING "#HHR "zACI„DdE 
-10] NEXT J=FRINT 


70 NEXT I: FRINT 

280 READ OFTH 

FRINT"** Bitte warten #*'" 

REM Zuordnung 

Sal) 

FOR I=1 TON 
2(IJ=1:X(0,1)=I:X(1,D=1 
S5=5+ACI,D 
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sıl 


BIT) 
570 
FRC 
BZ) 
400 
+10 
420 
u) 
440 
ED 
460 
470 
480 
470 
300 
510 
Zac 
SEO 
540 
Soc 
560 
570 
580 
er) 
Göd) 


SL0 


NEXT I 

MX=58:MI=S 

R=0 

FÜR I=1 TON 

E=B+A(I,Z(19) 

NEXT I 

IF RBxi=M%X THEN 470 

FÜR I=1 TON 

X(1,D=Z(D 

NEXT I 

MX=R 

IF Rr=MI THEN 540 

FOR I=1 TON 

x(0,1)=Z(D 

NEXT I 

MiI=E 

REM Erzeugen einer neuen Fermutation 

FOR I=N-1 TO 1 STEF -1 

FOR J=I+1 TON 
IF ZI) >Z(J) THEN 5970 
H=Z (I): Z(ID)=2Z (MN: ZCJ)=H 
J=N:GOTO 380 
NEXT J 
GOSURB 780 : REM Sortieren 
NEXT I 


97 YLOG OZ8 

: 0978 
N4NL34 058 
Ü LX3N O8 


H= (kN) ZECLD ZetOD) 2° (OD) Z=H NAHL DCi>W Al OLE 
A LXAN GEB 

A4=kKl N3IHL CP ZU CWIZ AL 5718 

N DL I+rl=4 MO IBIRT=| 

[=H Dal 


I-N OL I=[ 40a 084 

134312405 wweußbosd4ayrun MI4 OZLZ 

2 09 

ANZ OSZ 

(ER OII)EZSNIMLS ANINJI OrZ 

(4) 140!,= awunssbung-emag "„FFLAO ANIM4 OEZ 
(St OL) ESNINMLS LNIMA 0Z4 

I AX3N OTZ 

(TIDXTENHHHRL-— H# „ SNISN LNIMd CHI. 
N OL T=I M0J 04% 

IN=(O) LA0O’XW=(P LJO 089 

oO=4 3573 I=4 NIHL „XYlu=stldO MOD .FFklum&ldü IT 0/9 
(SFOX)ESNIMLS LNI4A 099 

„Bunupuonz sTewr4dg „(W)AYL LNI4I4 059 
(SFIOE)EFONIMLS LNIMd O9 

agebsng WIM 0%? 


: 057 
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BBO DATA 60,35,28,55,29,26 
890 DATA 81,43,37,23,36,45 
700 DATA 42,42,33,47,43,51 
310 DATA 29,70,42,53,48,37 
720 DATA 81,69,40,66,69,60 
930 DATA 10,21,32,31,24,77 
340 DATA Min 


Gegebene Bewertungsmatrix: 
a0 35 28 5329 26 
g8ıi 43 37 ZI 34 45 
42 ann 47 43 51 
29 70. 42 548 57 
81 69 U 6b 69 dü 
10.2 SE 31 2477 
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36. LINEARE REGRESSION 


Unter der linearen Regression versteht man die Anpassung einer linearen 
Funktion, meist einer Geraden, an eine Schar von vorgegebenen Punkten so, 
daß die Summe der senkrechten Abstände der Punkte von der Geraden mini- 
mal ist. Dieses Verfahren stammt von dem schon erwähnten deutschen Mathe- 
matiker C.F. Gauß und heißt Methode der kleinsten Quadrate. 
Sind (xj, yi) die Koordinaten der n Punkte, an die die Gerade 

y-aıxtb 
angepaßt werden soll, so gilt nach der Methode der kleinsten Quadrate 
_ n(&xiyi) — (Zxj) (X yi) 


. Su2 (2 
und a, za 


Iyi -arxi 
n 


b= 


dabei bedeuten die Summenzeichen, daß die hinter dem & stehenden Terme 
addiert werden müssen. 


Bundesausgaben in Mrd. DM 


20 17 17 1 
240 =: -| + 
230 j fa) 


220 + 44 Bi BEE 


— 


BE IB 


4 5 6 7 8 9 10 ah 12 Jahr 
70 n72 73 74 75 76 77 a” 9 80 8 82 


Zum folgenden Programm 


Nach Eingabe der Anzahl der Punkte und ihrer Koordinaten, berechnet das 
Programm nach der angegebenen Methode die Regressionsgerade. Der Funk- 
tionswert dieser Geraden kann an beliebigen Stellen ausgewertet werden; die 
Regressionsgerade kann auch zur Prognose benützt werden. 


Beispiel 
Die Ausgaben des Bundes betrugen nach [3] 


en | ons | 
| 


Zählt man die Jahre ab 1970 (= 0), so erhält man die Regressionsgerade 
y = 13,11x + 85,15. 


Sie zeigt anschaulich, daß die Bundesausgaben vom Stand 85,15 Mrd. im Jahr 
1970 jährlich um durchschnittlich 13,11 Mrd. DM angewachsen sind. Durch 
Einsetzen von x=12 in die Funktionsgleichung erhält man für 1982 die Pro- 


gnose 
242,4 Mrd. DM. 


Wie gut die durch die Regression ermittelten Werte mit den tatsächlichen Wer- 
ten übereinstimmen, kann dem Programmausdruck entnommen werden. 
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ll 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
O0 
10 
RO 


RO 


240 
250 
260 
270 
BO 
290 
AGO 
310 
20 


AO 


Be] 


350 


REM „.ununen EEE Eee LINEARE 
CLS 


FRINT STRINGE (30,61) 
FRINT" Lineare Regression" 
FRINT STRINGE (70,61) 


REN: as „nennen... Binlesen 

S=0: T=ü: U=0 

v=0: W=0 

READ N 

DIM X(CN) „Y(ND 

FOR I=1 TON 
READ K(1),YiD 
5=5+X(]I) 
T=T+Y(D 
U=U+X(1I)”2 
Vv-V+Y(II)*2 
W=WtX CI) #Y(D) 


NEXT I 
REM was c0HH ann 0 „un. . PARAMETER 


A=(W-S#T/N) /(U-S5#S/N)I 
B=(T-A#5) /N 


REM „uuuunenunenunennnen na AUSGABE 


REGRESSION 
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350 FRINT:FRINT" Regressionsgerade:"; 
370 FRINT USING " ya #HHH. HH Ruth HH" A,BR 


380: 
390 FRINT:FRINT STRINGE (30,45) 
400 FRINT" X y beob. y berech." 


410 FRINT STRINGE (30,45) 

420 FOR I=1 TON 

+20 X=X (I) :Y=Y(D 

440 FRINT USING "###.# HHHHHH HH HHHHHH HH", X, Y,ARX+B 
450 NEXT I 

450 FRINT STRINGE (30,45) 

470 3 

480 REM „nenn nununnne nn nn. . „ Extrapolation 

490 FRINT: INFUT" Weitere y-Werte gesucht (J/NI "zAF 

500 IF LEFTE(AF,1)="J" OR LEFTE(AF,1)="j" THEN 510 ELSE END 
510 INFUT" x-Wert";X 

520 FRINT STRINGE (30,45) 

530 FRINT USING "x = HHHH.# yo HEHE X ARXHEB 

540 FRINT STRINGE (30,45) 

550 GOTO 490 

50: 

570 REM „uunnennnnn Be u DATEN 

5380 DATA 12 

590 DATA 6,88.0,1,98.5,2,111.1,3,122.6,4,134.0,5,1596.9,6,162.5 
SO DATA 7,172.0,8,189.5,9,202.4,10,215.7,11,233.0 


Regressionsgerade: y= 13.11 *x 


y beob. y berech. 
0.0 88.00 85.15 
1.0 78.50 98.26 
2,0 111.10 111.38 
Kr] 122.60 124.49 
4.0 154.00 137.60 
3.0 156.90 150.71 
GG 162.50 163.82 
7.0 172.00 176.93 
8.0 189.50 190.05 
9.0 AG. 40 A0O3.16 
10.0 215.70 216.27 


11.0 ann. O0 229.38 


Weitere y-Werte gesucht (J/N)? ji 
Wert” 12 


ee 12.0 y = 242.49 


Weitere y-Werte gesucht (J/N)”? 
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37. GLEITENDE MITTELWERTE 


Um die bei Zeitreihen zufälligen und irregulären Schwankungen auszuglei- 
chen, verwendet man die Methode der gleitenden Mittelwerte. Dieses Glätten 
geschieht derart, daß jeder Monatswert als Mittelwert seiner 12 Nachbarwer- 
te bestimmt wird. Da aber bei einer geraden Zahl von Werten kein Wert ge- 
nau in der Mitte liegt, zieht man noch einen 13. Monatswert heran und be- 
rücksichtigt diesen und den 1. jeweils zur Hälfte. Die Formel für das i-te Mo- 
natsmittel ist somit 


M(i) = (x(i-6)/2 + x(5) + .... 
EENERN + x(i+5) + x(i+6)/2 )/12 
dabei sind x (i) die beobachteten Monatswerte. 


Damit diese Formel anwendbar ist, müssen mindestens 13 Monatswerte ein- 
gegeben werden. Für die ersten und letzten 6 Monate kann kein gleitender 
Durchschnitt ermittelt werden. 


Zum folgenden Programm: 


Nach Eingabe von mindestens 13 Monatswerten in Form von DATA-Werten 
bestimmt das Programm die gleitenden Durchschnitte und druckt sie tabella- 
risch aus. 


181 


Beispiel: 
Die folgende Tabelle zeigt den Umsatz eines Geschäfts in Tsd DM während 4 
Jahren: 


Monat Jahr 1 Jahr 2 Jahr 3 Jahr 4 
Jan 7.4 8.8 10.9 14.0 
Feb 77 9.1 11.4 15.0 
Mrz 7.3 9.3 11.8 14.9 
Apr 78 9.2 12.0 15.5 
Mai 8.4 9.0 12.2 15.3 
Jun 8.5 9.3 11.6 14.5 
Jul 8.9 9.8 11.0 14.4 
Aug 8.7 9.6 11.4 13.0 
Sep 9.1 10.1 12.0 12.0 
Okt 9.2 10.3 12.6 11.5 
Nov 8.9 10.5 13.7 11.6 
Dez 8.6 10.3 14.4 12.0 


Die gleitenden Mittelwerte für die Monate 7 bis 42 können dem Program- 
mausdruck entnommen werden. 
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est 


100 REM „neuen uennnune „....GLEITENDE MITTELWERTE 


110 a 

120 CLS 

130 FRINT STRINGE (30,61) 

140 FRINT " Gleitende Mittelwerte" 

150 FRINT STRINGE (30,61) 

160 3 

ZW REM. 0 ea a er nee EINGABE 


180 READ N:REM Anzahl der Monate 

190 DIM %X(N) ,„G(N) 

acc IF N>12 THEN 230 ELSE 210 

>10 BEEF=FRINT"Mittelwertbildung ist bei weniger als" 
220 FRINT"als 12 Monaten nicht moeglich !":zEND 

FOR I=1 TON 


READ XD 
NEXT I 
REM znunnnnenonen essen auennun „... BERECHNUNG 


S=(X (LI +X (1) )/2 
FOR I=2 TO 12 
5=5+X(D 
NEXT I 
679)=5/12 
FÜR I=8 TO N-6 
S=5-XLI-7)/E-X(I-6) /ErX (I+S) /ErX (I+6) /2 
G6(1D=5/12 


v8l 


57-18) 
370 
380 
390 
400 
410 
420 
420 
440 
455 
460 
470 
480 
470 
EOO 
S10 
20 
SEO 
540 


REM nassen ern 


FRINT" Monat 


FRINT STRINGE (39,45) 


Beobachtet 


FRINT STRINGE (39,45) 


FOR I=1 TON 
FRINT USING 


FRINT TAB(2S5 


NEXT I 


) 


#H# 


USING 


FRINT STRINGE (39,45) 


END 


DATA 48 


"nu... AUSGABE 


Geglaettet'" 


HHHHHHH HH": 1,XCD; 
IF I[{7 OR I>N-& THEN FRINT TAR(E 
"HHHHHH HH" IGCD 


DATA 7.4,7.7,7.3,7.8,8.4,8. 
DATA 8.8,9.1,9.3,9.2,9 


’ 
DATA 10. 9, 11.4,11.8,12,12.2,1 


’ 


9.3, 


DATA 14, 15,14. 9,15.5,15.2, 


S 
9 


“ro 


O0) --1:G0T0 460 


-7,9.1,9.2,8.97,8.6 
„10.1, 10.3,10.5,10.3 
1,11.4,12,12.6,13.7,14.4 


.„4,13,12,11.5,11.6,12 


‘ende Mittelwerte 


Monat Beobachtet Geglaettet 


1 7.40 -— 
= 720 u 
= 7.30 ee 
4 7,80 . 
5 8.40 FR 
8.50 -- 
8.90 8.43 
8.70 8,53 
9.10 8.697 
9.20 8.83 
8.72 
8.98 
2.05 
9:12 
9.20 
IT 
9.40 
9.54 
9.70 
9.88 
10.08 
10.20 
10.55 
10.20 10.78 
10.90 10,93 
11.40 11-05 
11.80 11:20 
12.00 11.78 
# & 11.61 


11.91 
12.21 


12.47 


14.00 
15.00 
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38. MONATS-INDIZES 


Man unterscheidet im wesentlichen 4 Faktoren, die auf Zeitreihen einwirken: 


a. langfristige Trends, z.B. Inflation 

b. zyklische Einflüsse, z.B. Konjunkturschwankungen 
c. saisonale Einflüsse, z.B. das Weihnachtsgeschäft 

d. irreguläre und zufällige Fluktuationen. 


Aufgabe der Zeitreihenanalyse ist es, Einflüsse dieser Faktoren zu erkennen 
und zu bereinigen. Durch Glätten von Daten können z.B. zufällige Schwan- 
kungen eliminiert werden. 

Im folgenden Programm erfolgt das Glätten von Zeitreihen durch gleitende 
Mittelwertbildung. Eine andere Methode, das exponentielle Glätten, wird im 
folgenden Programm dargestellt. 


Um Monatsdaten mehrerer Jahre zu glätten, verwendet man meist gleitende 
12-Monats-Durchschnitte; d.h. jeder Wert wird so geändert, daß er den Mittel- 
wert seiner 12 Nachbarwerte darstellt. Mittelt man nun noch die geglätteten 
Werte gleicher Monate, z.B. alle Januarwerte, so wird der Trend eliminiert. 
Bezieht man diese Monatsmittel auf ihren Mittelwert (= 100%), so erhält man 
die Indexwerte aller Monate. 


Zum folgenden Programm 


Nach Eingabe der Anzahl der Jahre, der Monatswerte in Form von DATA- 
Anweisungen, berechnet das Programm die gleitenden Monatsdurchschnitte 
und die Monatsindex-Werte. 


Beispiel 


‚Die folgende Tabelle zeigt den monatlichen Umsatz (in Tsd. DM) eines Ge- 
schäfts für den Zeitraum von vier Jahren: 
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88 


Jan Feb Mrz Apr 
Jahr 1 74 77 73 78 


Mittelwert 


Indexwerte 
des einfachen 94,3 98,9 989 101,6 
Mittels 


Indexwerte 


des gleitenden 985 1023 103,1 104,0 
Mittels 


2 88 9,1 93 9,2 
3 10,9 11,4 11,8 12,0 
4 15,0 14.9 15,5 
einfacher 11,1 


Aug 
8,7 
9,6 

11,4 
13,0 


10,7 


979 


95,9 


Sep 

9,1 
10,1 
12,0 
12,0 


10,8 


98,9 


Okt 

9,2 
10,3 
12,6 
11,5 


10,9 


99,8 


99,4 


In der graphischen Darstellung sind zum Vergleich auch die ungeglätteten 
Monats-Indexwerte, in der Graphik einfache Mittelwerte genannt, aufgenom- 
men: 


105 
104 
103 
102 
101 
100 
99 
98 
97 
96 


95 


94 


Indexwerte der gleitenden Mittelwerte 
— — — — Indexwerte der einfachen Mittelwerte 
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061 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
ZOO 
10 
220 
AEO 
240 
50 
2u0 
270 
410) 
290 
300 
310 
SEO 
330 
340 


>50 


REM „u... ee MONATS-SAISONINDIZE 


CLS 
FRINT STRINGE (26,61) 
FRINT" Saison-Indizes" 


FRINT STRINGE (26,61) 
READ N:REM Anzahl der Jahre 
T=12#N 


DIM X(T+11) ,SCT+59) ,„Y(T) ,„Z(12) „M£ (12) 


REM Einlesen der Monatsnamen 
FOR I=1 TO 12 
READ M#£<(I) 
NEXT I 
REM Einlesen der Data-Werte 
V=0 
FOR I=1 TON 
FOR J=1 TO 12 
V=-V+1 
READ X (VW) 
NEXT J 
NEXT I 


REM „ununeunuernenunnnnn nn a BERECHNUNG 


I61 


360 B=5: M=T-12 

370 FOR I=1 TON 

BO FOR J=1 TO 12 

>90 B=EB+1 

400 C=B-ö 

410 FOR EK=1 TO 12 
420 C=C+1 

40 S(B)=S(R)+X(C) 
4.40 NEXT E 

450 NEXT J 


460 NEXT I 

470 FOR J=&4 TO T-7 

480 Y(J+1)=(0X (J+1) /C(S5CII+S (Jr 1)) /ZI4))RLO0O 
490 NEXT J 

500 FOR I=1 TO 12 


510 QO=Ir6 

520 IF 0:12 THEN Q=Q-12 
SAU R=Q 

540 FOR J=1 TON 

550 Z(@O)=Z(Ü) +Y(RI/CN-1) 
560 R=k+i12 

570 NEXT J 

580 G=G6+Z(O) 


590 NEXT I 
Hold Se1R00/G 
ld: 


c6l 


G20 
H:O 
640 
650 
[=1-18) 
670 
680 
FO 
700 
710 

ZO 
730 
740 
750 
760 
770 
780 
790 


REM: Est a a a a Rn? „AUSGABE 
FRINT:FRINT STRINGS (30,45) 
FRINT " Monat Saison-Index in %" 
FRINT STRINGE (30,45) 
FOR I=1 TO 12 
PRINT USING " HH HH": MECL) „ZU 5 
NEXT I 
FRINT STRINGE (30,45) 
FRINT TAR(6) "Mittel = 100 %" 
FRINT STRINGE (30,45) 
END 
DATA 4 
DATA Jan,Feb,Mrz ,Apr „Mai ,„Jun,Jul „Aug ,Sep ,Okt „Nov Dez 
DATA 7.4,7.7,7.3,7.8,8.4,8.5,8.9,8.7,9.1,9.2,8.9,8.6 


DATA 8.8,9.1,9.3,9.2,9,9.3,9.8,9.6,10.1,10.3,10.5,10.38 


DATA 10.9,11.4,11.8,12,12.2,11.6,11,11.4,12,12.6,13.7,14.4 


DATA 14,15,14.9,15.5,15.3,14.5,14.4,13,12,11.5,11.6,12 


Monat Saison-Index in % 

Jan 798.54 
Feb 102.3 

Mrz 103.09 
Apr 103.97 
Mai 102.65 
Jun 797.25 
Jul 98.02 
Aug 9795.88 
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39. EXPONENTIELLES GLATTEN VON DATEN 


Eine weitere Methode, zufällige Schwankungen zu eliminieren, ist das expo- 
nentielle Glätten. Sind x; die Werte der Zeitreihe, so erhält man die geglätte- 
ten Werte yj über die Vorschrift 


y2=x1 

yitl = axi+(1-a)yi i=2,3,...,n 
Die Konstante & bestimmt dabei den Einfluß der Nachbarwerte ((<a<1), 
je mehr sich & dem Wert 1 nähert, desto mehr Nachbarwerte werden in die 
gewichtete Mittelwertbildung einbezogen. 
Die Konstante « wird nun so bestimmt, daß die Summe der quadratischen 
Abweichungen zwischen den Werten xj und yj möglichst klein wird. Dieses 
Vorgehen entspricht wieder der Methode der kleinsten Quadrate. 


Zum folgenden Programm 
Die Zeitreihe und die Anzahl ihrer Werte werden in Form von DATA-Werten 
eingelesen. Für jeden Wert von «& für 

0,1; 02; 03;..... ;0,9 
wird die Summe der quadratischen Abweichungen berechnet und diejenigen 
geglätteten Werte ausgedruckt, die das kleinste Abweichungsmaß haben. 


Beispiel 
Der Anteil des Mineralöls am Primärenergie-Verbrauch betrug in der Bundes- 
republik (zitiert nach [3]): 


54.7 
51,5 
ar | 
1978 
1960 
| a | 


Einlesen dieser Werte ins Programm liefert die im Programmausdruck gegebe- 
nen Werte. 
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Anteil des Mineralöls am Primärenergieverbrauch in % 


ungeglättete Werte 


-- - - - - - geglättete Werte 


Literaturhinweis: [16] 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
ZOO 
zZ10 
RO 
AEO 
240 
50 
260 
270 
RO 
290 
O0 
10 
FO 


AAO 


>40 


>50 


REM, ee. Sa .„EXFONENTIELLES GLAETTEN VON DATEN 
CLS 

FRINT STRINGE (35,61) 

FRINT" Exponent.Glaetten von Daten" 

FRINT STRING# (35,681) :FRINT 


REM „ununun« ren nsunnnen ee reine „EINLESEN 
READ N 
DIM X(ND „Y(ND ,Z(CN) 


FOR I=1 TON 
READ XD) 
NEXT I 


REM 2a sa anne „nun unnnnnnn na BERECHNUNG 
Fi=1E+20 

FOR A =.1 TO .9 STEF .1 
F=Ü 

Y<l)=X(U) 

FOR I=2 TON 
YIED=AHX(CTII)+t1-A)#YCI-1) 
F=F+(Y(ID)-X(D)I"E 

NEXT I 

IF FiFi THEN GOSURB 470 
NEXT A 


861 


E60 
370 
380 
390 
400 
410 
420 

30 
440 
450 
460 
470 
4890 
490 
SO 
510 
SEO 
20 
540 
Ss5o 
S60 


REM „n... run eneenrnnenuneun nen a „ AUSGABE 
FRINT USING " Beste Anpassung fuer Alpha= #.#"; Al 
FRINT:PRINT STRING$ (35,45) 

FRINT" Feriode Geg.Daten Geglaettet" 

FRINT STRINGE (75,45) 

FOR I=1 TON 


FRINT USING " ## HHHH#H.H# #HH#H.# "SS I,XCD),Z(I 
NEXT I 

FRINT STRINGE (35,45) 

END 


REM „nuunnnnunnnnennen nn. ZWISCHENSFEICHERN 
Fi=F 

Al=A 

FOR J=1 TON 

Z(D=EY DM 

NEXT J 

RETURN 


DATA 1Z 


DATA 53.1,54.7,55.4,55.2,51.5,52.1,52.9,52.1,52.3,50.7,47.6,44.8 


Feriode Geg.Daten Geglaettet 
1 Sa.1 52.1 
2 54.7 54.4 
3 535.4 55.2 
4 55.2 55.2 
ke 51.5 52.2 
6 s2.1 s2.1 
7 52. 32.7 
8 Ss2. 52.2 
9 52.3 52.53 

10 50.7 51.0 
11 47.6 48.5 
12 44.8 45.5 
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40. PROGNOSE DURCH EXPONENTIELLES GLATTEN 


Wie die lineare Regression, kann auch das exponentielle Glätten (Programm 
39) zur Prognose herangezogen werden. Für den fehlenden, zu glättenden 
Wert, verwendet man zur Prognose einen Mittelwert der gegebenen Zeitreihe. 
Die Anzahl der Zeitreihenwerte, die gemittelt werden sollen, ist im Programm 
frei wählbar. 


Zum folgenden Programm 


Die Zeitreihe, die Anzahl ihrer Werte, die Anzahl der Werte, über die gemittelt 
werden soll, werden in Form von DATA-Werten eingelesen. 
Zusätzlich zu den «&-Werten von Programm 39 


0,1; 02; 03; ..... ;09 


werden noch die Werte 0,01 und 0,05 betrachtet. Um abschätzen zu können, 
wie stark der Prognosewert in Abhängigkeit von «& variiert, werden alle Pro- 
gnosewerte ausgedruckt. 

Wie bei Programm 39 wird auch derjenige Wert von & angegeben, bei dem 
die quadratische Abweichungssumme von geglätteten und ungeglätteten Zeit- 
reihenwerten am kleinsten ist. 


Beispiel 


Der Index der Aktienkurse (Jahresdurchschnittswerte) in der BRD seit 1975 
betrug (zitiert nach [3]): 


Die angegebenen Kurse sind bezogen auf den Stand vom 29.12.1972 (= 100%). 
Eingabe dieser Werte ins Programm liefert für 1982 die Prognose 101,9 für 
a=02. 

Gibt man den Prognosewert für 1982 mit den anderen Daten ins Programm 
ein, so erhält man eine Prognose für 1983. Die so erhaltenen Werte werden für 
die folgenden Jahre immer unsicherer. 
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c03 


100 
110 
120 
130 
140 
150 
180 
170 
180 
1970 
ZO0 
z10 
] 
a0 
240 
50 
260 
270 
280 
290 
AUG 
>10 
AO 
ARO 
40 


50 


REM FROGNOSE DURCH EXFONENTIELLES GLAETTEN VON DATEN 
CLS 

FRINT STRINGE (35,61) 

FRINT" Frognose durch Expon.Glaetten " 

FRINT STRINGE (35,61) 

REM ua re ELBE NIEREN ..„ DATENEINLESEN 
READ N: REM ANZAHL DER DATEN 

READ F: REM ANZAHL DER ZU MITTELNDEN ZEITRAEUME 
IF F£i1l OR F>=N THEN FRINT"DATENFEHLER": END 

DIM Y(N) ,„X(12),5(12) 

FOR I=1 TON 

READ Y(D 

NEXT I 

BEIM en ee are ee ...„ INIALISIEREN 

S=U 

FOR I=1 TO 10 

X(I)=0 

S(I)=0O 

NEXT I 

FOR I=1 TO F 

S=S5+Y(ID) 

NEXT I 

T=S/F 


1074 


60 
370 
3BO 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
E00 
510 
SEO 
Zac 
540 
550 
560 
570 
580 
390 
soo 
610 


A=.01: M=2 
GOSUR 760 
A=.05: M=3 
GOSUR 760 
FOR J=1 TO 9 
A=J/10 
M=J+3 
GOSUR 760 
NEXT J 
REM aaa BESTIMMEN DER FEHLERSUMME 
R=S(2): L=2 
FOR I=3 TO 12 
IF S(IH=R THEN 520 
R=S5(D 
L=1I 
NEXT I 
IF L=3 THEN 560 
IF L=2 THEN 570 
A=.01: GOTO 570 
A=.05: GOTO 590 
A=.1#(l.-D 
REM aan ie a AUSGABE 
FRINT:FRINT" Frognose fuer Zeitraum Nr.";N+1 
FRINT USING " Bester Wert fuer Alpha #.## nach";A 


08 


620 FRINT" der Methode der kleinsten Quadrate" 
>20 FRINT STRINGE (35,45) 
640 FRINT" Alpha Wert" 
650 FRINT STRINGE (35,45) 
&&0 FRINT USING " „Oi HHHHHHH HH "X (2) 
670 FRINT USING " „OS HHHHHHH HH "XD 
680 FOR I=1 TO 9 
(=) 28) A=1/10 
700 K=3+1I 
710 FRINT USING " #.## HH HH" SA,XCHK) 
720 NEXT I 
720 FRINT STRING# (35,45) 
740 END 
730 3 
760 REM „....UNTERFROGRAMM EXFONENTIELLES GLAETTEN 
770 QO=F+1 
780 E=0: F=T 
795 FOR I=O TON 


(=1018) E=E+(F-Y(I))"Z 

810 F=eA#Y(I)+ti-A)#F 
20 IF I{>N THEN 850 

= 610] X(M)=F 

840 S(M)=E 


850 NEXT I 

860 RETURN 

870 : 

BB80 REM „uuunununnnnnun en nun nn en nenn nn DATEN 
890 DATA 7 

900 DATA 5 


Frognose fuer Zeitraum Nr. 8 
Bester Wert fuer Alpha 0.20 nach 
der Methode der kleinsten Quadrate 


Alpha Wert 

„oil 102.37 

.05 102.27 
0.10 102.14 
0.20 101.94 
0.30 101.78 
0.40 101.66 
0.50 101.60 
0.60 101.58 
0.70 101.62 
0.80 101.70 
0,90 101.82 
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ANHANG A 


STATISTISCHE LEBENSERWARTUNG 


Vollendetes Männliche Weibliche 
Altersjahr 2) Personen Personen 


Lebenserwartung in Jahren 


0 67,87 74,36 

1 68,61 74,80 

2 67,70 73,88 

5 64,86 71,01 
10 60,03 66,14 
15 55,16 61,22 
20 50,53 56,39 
25 45,93 51,54 
30 41,24 46,70 
35 36,58 41,90 
40 31,99 37,15 
45 27,54 32,52 
50 23,27 28,01 
55 19,25 23,67 
60 15,52 19,46 
65 12,20 15,48 
70 9,43 11,88 
75 7,19 8,79 
80 5,40 6,30 
85 3,97 4,46 
90 2,87 3,20 


1) 1972/74 (abgekürzte Berechnung) 


2) Es beziehen sich: das Alter O auf den Zeitpunkt der Geburt, die anderen Altersangaben 
auf den Zeitpunkt, an dem jemand genau x Jahre alt geworden ist 


Quelle: Statistisches Jahrbuch 1976, Seite 73 


207 


FORMELSAMMLUNG 
p = Zinssatz in % i = 
p . = 

= 1+ — f 
q 1 100 Zinsfaktor ve 
K = Anfangskapital, Kredithöhe E = 
B = Barwert = 
A = jährliche Annuität 

: e Kpt 
Zinsformel zZ = 360.100 
Kapitalendwert Kn = KaqN 

n /Kn 
Zinsfaktor, Rendite q = nf 
Konformer Zinssatz BP = Wa-ı- 


Endbetrag regelmäßiger Zahlungen 


n_ 
E = R(qN-1) 
q—1 
n—1 
E = Ralq ) 
q-1 
= m m-1), (an_ 
E A #5 )(qN-1) 
m m+1 
2: Bulle (1 
E are 7) ) (gqN-1) 
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ANHANG B 


Tilgungsrate in % 


Zeit in Tagen 


= Endkapital 


Endwert 
Zahl der Zinsperioden pro Jahr 


Zinsertrag 


100% 


nachschüssig, jährliche Verzinsung 


vorschüssig, jährliche Verzinsung 


nachschüssig, unterjährige 
m-malige Verzinsung 


vorschüssig, unterjährige 
m-malige Verzinsung 


Barwert regelmäßiger Zahlungen 


Rlan-1) INA RE : 
B= ——— nachschüssig, ganzjährige Verzinsung 
aNlq-1) 
R(qaN- 1 Be en ie . 
B = AN vorschüssig, ganzjährige Verzinsung 
an 1(q-1) 


PD een 


—1 2 EIN 
B = nn nachschüssig, unterjährige 
q m-malige Verzinsung 
+ 
Rt RE a) 
1 2 ERBr. Mc 

B = LE E70 Free vorschüssig, unterjährige 
an m-malige Verzinsung 


B = a nachschüssig 


q-1 
_  Rq "I 
B = SET vorschüssig 
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Umwandlung eines Kapitals in Rente 


Nia— 
R = Ru nachschüssig, ganzjährige V erzinsung 
qa’— 
n— 1(a—1 
R = Re vorschüssig, ganzjährige Verzinsung 
q'— 
Kqn SR: PER 
R = See SE EEE nachschüssig, unterjährige 
4 oh) m-malige Verzinsung 
q-1 2 
Kan-1 ER has z 
R = — vorschüssig, unterjährige 
( + > ) (qn-1) m-malige Verzinsung 
ga- 


Annuitätentilgung eines Darlehens 


Kanlq-1) 
an-1 


A = 


Ratentilgung eines Darlehens 


non [100 +p (n-k+1)] Annuität am Ende 


AK = 
100 des k-ten Jahres 
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